for x:=5 downto 0 do begin y:=x×x; writeln (y); end
Ответ
0
Вывод будет равен 10 т. к. у= х*х