Ответ:
Program name;
Uses crt;
Var a, b, S, P :integer;
Begin
Clrscr;
Writeln ('Даны стороны прямоугольника a и b.');
Writeln ('(1) Найти его площадь S=a*b.');
Writeln ('(2) Найти его периметр P=2*(a+b).');
Write ('Введите значение стороны а: ');
a := 0;
Readln (a);
Write ('Введите значение стороны b: ');
b := 0;
Readln (b);
S := a*b;
P := 2*(a+b);
Writeln ('(1) Площадь прямоугольника S=a*b =', S);
Writeln ('(2) Периметр прямоугольника P=2*(a+b) =', P);
Readln (S, P);
End.