помогите, паскаль! На уроке сижу, очень нужно:)

Question

вывести на экран значение у^2 где у принадлежит промежутку от 1 до 20 в возрастающем и убывающен порядке

Павел Жидиков · Accepted Answer

program prog; 
var y:integer; 
begin 
for y:=1 to 20 do 
write(y*y," "); 
writeln; 
writeln; 
for y:=20 downto 1 do 
write(y*y," "); 
writeln; 
writeln; 
write("а вообще я двоичник и мне программку в интернете сделали"); 
readln; 
end.

Маргарита Таранова · Answer

var y: integer; 
begin 
 for y:=1 to 20 do 
 writeln(y*y); 
end;

Cutie · Answer

program power. 
begin 
var y:integer; 
 
for y:=1 to 20 do 
writeln (y*y); 
 
for y:=20 downto 1 do 
writeln (y*y); 
 
end; 
 
Если я правильно помню синтаксис...