Первый:
var i,n:integer; beginRead(n);Repeati := i + 1;until sqr(i)>n; Write(sqr(i));end.Второй:
var i,n:integer; beginRead(n);While sqr(i)<=n doi := i + 1; Write(sqr(i));end.Третий:
var i,n:integer; beginRead(n);For i := 1 to n doif sqr(i)>n then break; Write(sqr(i));end.Примеры работ:
