Цикл с параметром: program prost; uses crt; var y, i: word; x: longint; begin readln(x); readln(y); for i : = 2 to y do x: =x*x; writeln(x); end. цикл с постусловием: program prost; uses crt; var x: longint; y, i: word; begin i : = 0; readln(x); readln(y); repeat x : = x*x; inc(i) until i < > y; writeln(x); end.
ответ:
s=5×7/2=17,5 см^2