Pascal
Объяснение:
1 program tri;
2 var a,S:real;
3 begin
4 writeln('vvedite storony kvadrata');
5 readln (a);
6 s:=a*a;
7 writeln ('ploshad ravna=',s);
8 emd.
Pascal
Объяснение:
1 program tri;
2 var a,S:real;
3 begin
4 writeln('vvedite storony kvadrata');
5 readln (a);
6 s:=a*a;
7 writeln ('ploshad ravna=',s);
8 emd.