Написать программу для решения задачи. Дана сторона квадрата a. Найти его площадь S = a2.

Question

Написать программу для решения задачи.
Дана сторона квадрата a. Найти его площадь S = a2.

Answer 1

Var a,S:integer;
Begin
Writeln("Введите  сторону квадрата a");
Readln(a);
S:=sqr(a);
Writeln("Площадь квадрата S=",S);
readln;
end.