Составить программу для нахождение площади квадрата по теме ленейное уравнения

1

Ответы и объяснения

2013-12-08T13:17:59+00:00
Program task;
Uses crt;
Var S,a: real;
Begin
        clrscr;
        Write('Введите сторону квадрата: ');
        Readln(a);
        S:=a*a;
        Writeln('Площадь квадрата = ',S:0:2);
         Readln;
End.