Введите с клавиатуры два числа, найдите периметр и площадь прямоугольника.
(Линейные алгоритмы. Язык Паскаля).

var n,s,p:integer;

begin

read(n);

s:=n*n;

p:=4*n;

writeln(s,' ',p);

end.

периметр и площадь прямоугольника