" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
1) Pętla działa dopóki i < 1000;
2) W pętli wyświetlasz i*i;
3)i := i+1;
Myślę, że może to wyglądać tak:
var
integer : i=1;
repeat
writeln(i*i);
i = i+1;
until i < 1000;