Вычислить периметр и площадь прямоугольника, если заданы его стороны. Нужно написать программу для этой задачи (Pascal)

Program z1;

Var a, b, p, s: real;

Begin

write ('Введите длину большей стороны прямоугольника->'); Read (a);

write ('Введите длину меньшей стороны прямоугольника->'); Read (b);

p: = (a + b) * 2;

s: = a * b;

writeln ('Периметр прямоугольника = ', p);

writeln ('Площадь прямоугольника = ', s);

end.