Напишиет программу которая вычисляет площадь и периметр прямоугольника по длинам двух его сторон

var a,b:integer; begin write('Введите сторону a=');read(a); write('Введите сторону b=');read(b); writeln('Площадь прямоугольника=',a*b); writeln('Периметр прямоугольника=',2*(a+b)); end.