Составить и записать программу: вычисляющу по 2 ум значения сторон…

var a,b,p,s: integer; beginwriteln ("Введите а: "); readln (a); writeln ("Введите b: "); readln (b); p=2*(a+b); s=a*b; writeln ("Площадь прямоугольника равна: ",s," кв. См"); writeln ("Периметр прямоугольника равен: ",p," см"); readln; end.