надо нарисовать блок схему

Question

program feg; 
uses crt; 
var i,j,k:integer; 
begin 
 clrscr; 
 for i:=1 to 20 do 
 for j:=i to 20 do 
 for k:=j to 20 do if i*i+j*j=k*k then writeln(i,' ',j,' ',k); 
 readln; 
end.

Лидия · Accepted Answer

http://ru.wikipedia.org/wiki/Блок-схема читаем и делаем

Elena · Answer

начало 
подключение библиотеки и описание переменных 
стандартная процедура Очистка экрана 
начало цикла i=1,20 
начало цикла j=1,20 
начало цикла k=1,20 
условие 
если ДА то вывод на экран i, j, k 
конец цикла по К 
конец цикла по j 
конец цикла по i 
ввод с клавиатуры любого символа 
к о н е ц 
а теперь каждую строку преврати в фигуру