Определите площадь и периметр прямоугольника со сторонами а и 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.