1begin
2 var (a, b) := ReadInteger2('Введите сторону А и B: ');
3 Println('Периметр: ', 2 * (a + b), ' Площадь: ', a * b);
4end.
ответ взят с задания
