Даны стороны прямоугольника a и b. Найдите его площадь S=a*b и периметр P=2 * (a+b). Входные данные: Ввести два числа a и b (1<=a, b<=100) Выходные данные: вывести два числа через один пробел площадь и периметр прямоугольника.

Uses crt;

var a, b, S, P:integer;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

S:=a*b; P:=2 * (a+b) ;

write ('S=', S,' ','P=', P) ;

end.

p. s. Где мы выводим на экран значения площади, там после второй S запятая, затем два апострофа через пробел (для пробела в итоге), затем запятая, потом вывод периметра идет аналогичным образом, вот! Спрашивайте, если что не понятно!