комментарий

Ответ от Ёергей Куксенков[гуру]
program program3_v7; {Имя программы, выбирается пользователем} var x,y:real; i:integer; {раздел описания переменых} begin {начало програмы, начало операторских скобок} for i:=1 to 5 do begin {цикл с параметром или управляемый цикл, который выполняется конечное число раз} writeln ('введите любое число x'); {Вывод информации и переход на новую строку} readln (x); {Ввод информации на переход на новую строк} if (x>=0) and (x<=3) then y:=sqr(x) else {оператор управления потоком кода в зависимости от логического результата данного условия или оператор ветвления или условный оператор} if (x>3) or (x<0) then y:=4; {оператор управления потоком кода в зависимости от логического результата данного условия или оператор ветвления или условный оператор} writeln ( i,'- vvod',' x=',x:3:2,' y=',y:4:2); {Вывод информации и переход на новую строку} end; {Конец программы, конец операторских скобок} end.{Конец программы, конец операторских скобок}