Задание.
Введите с клавиатуры два целых числа - длины сторон прямоугольника. Выведите на экран периметр и площадь прямоугольника.
Заранее спасибо)

var a,b,p,s:integer;beginwrite('a = ');readln(a);write('b = ');readln(b);p:=2*(a+b);s:=a*b;writeln('p = ',p,' s = ',s);end.Пример:a = 4b = 7p = 22 s = 28