Question

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

Answer 1

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