Instructiunea FOR(ridica la patrat nr introdus de cate ori vrei(trebuie sa modifici cifra de dupa to si el va ridica la putera a doua pana va ajunge la nr introdus) :
program instructiune_for;
var a:longint;
begin
write(‘a=’);
readln(a);
for a:=1 to 10 do—->>>>(in loc de 10 puneti nr dorit).
writeln(sqr(a));
readln;
end.
