Рассчитайте площадь и периметр прямоугольника в Паскале.(a-5, b-10)

begin

writeln ('Периметр = ', (5+10)*2);

writeln ('Площадь = ', 5*10);

readln;

end.