Определите площадь и периметр прямоугольника со сторонами а и b. Через паскаль

program area;

var

a:integer; / / сторона а

b:integer; / / сторона b

S:integer; / / площадь прямоугольника

P:integer; / / периметр прямоугольника

begin

write ("Введите а: ") ; / / выводим сообщение

readln (a) ; / / получаем значение а

write ("Введите b: ") ; / / выводим сообщение

readln (b) ; / / получаем значение b

S:=a*b; / / вычисляем площадь

P:=a*2+b*2; / / вычисляем периметр

write ("Площадь равна:", S) ; / / выводим сообщение

write ("Периметр равен:", P) ; / / выводим сообщение

end.