С клавиатуры вводятся длины сторон

прямоугольника. Найти его периметр и площадь.

Program by_Relhem;

var

a, b, S, P:integer;

begin

writeln ('Введите длины сторон прямоугольника, разделяя их пробелом.');

read (a, b);

S:=a*b;

P: = (a+b) * 2;

writeln ('Площадь: ', S);

writeln ('Периметр: ', P);

end.