Составить алгоритм и написать решение задачи ** Паскале: Дано целое число а. Найти...

Question

Составить алгоритм и написать решение задачи на Паскале: Дано целое число а. Найти периметр и площадь квадрата со стороной а

Answer 1

Var a,b,c:integer ;
begin readln(a) ;
b:=4*a ;
c:=a*a ;
writeln(b) ; writeln(c) ; end.