Паскаль Найти площадь и периметр прямоугольника Цифры любые Заранее СПАСИБО

Question

Паскаль
Найти площадь и периметр прямоугольника
Цифры любые
Заранее СПАСИБО

Answer 1

Var a,b,s,p:integer;
begin
read(a,b);
s:=a*b;
println(s);
p:=2*(a+b);
println(p);
end.