С клавиатуры вводится число-длина стороны квадрата. Вычислите и выведите площадь и...

Question

С клавиатуры вводится число-длина стороны квадрата. Вычислите и выведите площадь и периметр квадрата.

Answer 1

Var a:integer;
Begin
writeln('Введите сторону квадрата');
readln(a);
writeln('Периметр равен =',a*4);
writeln('Площадь равна =',a*a);
end.