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

program zz1;

var a, b, S, P:real; / / задаем переменные не целого типа

begin

write (' введите первую сторону прямоугольника ');

read (a);

write (' введите вторую сторону прямоугольника ');

read (b);

S: = a * b; / / вычисляем площадь прямоугольника по известной формуле

P: = (a + b) * 2; / / вычисляем периметр прямоугольника по известной формуле

Writeln (' Площадь прямоугольника = ', S); / / выводим один ответ

Writeln (' Периметр прямоугольника = ', P); / / выводим другой ответ

END.