Question

на языке паскаль напишите программу для вычисления площади квадрата (s=a^2)
В программе turbo Pascal. ​

Answer 1

program foo;

uses Crt;

var

 a, s: real;

begin

 ClrScr;

 write('Сторона квадрата: ');

 read(a);

 s := Sqr(a);

 Writeln('Его площадь: ', s:0:2);

 ReadKey;

end.