Напишиет программу которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон

Var
a,b:integer;
begin
write('Введите сторону a=');read(a);
write('Введите сторону b=');read(b);
writeln('Площадь прямоугольника=',a*b);
writeln('Периметр прямоугольника=',2*(a+b));
end.