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

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