32*40*48 = 61440 байт
61440 / 1024 = 60 Кбайт
Program m1;
Var x,n,i:integer;
begin
Readln (x,n);
For i:=1 to n do begin
x:=x*x;
end;
Write ('x=',x);
readln;
end.
Сканер - вводит, т.к сканирует документ и он появляется в электронном виде на компьютере