Для следующей напишите программу на языке паскаль : определить периметр р и площадь s прямоугольника со сторонами а=84мм и в=152мм

Program z1;
var p,s,a,b:integer;
begin
a:=84;
b:=152;
p:=(a+b)*2;
s:=a*b;
writeln('p=',p);
writeln('s=',s);
end.