Написать программу вычисления и вывода на экран периметра и площади прямоугольника.Помогите пожалуйста очень нужно!За ранее спасибо!

При условии, что стороны прямоугольника вводятся с клавиатуры и являются целыми числами: program p_s; var   a,b,p,s:integer; begin   write('введите сторону a: ');   readln(a);   write('введите сторону b: ');   readln(b);   p:=(a*2)+(b*2);   writeln('периметр: ', p);   s:=a*b;   writeln('площадь: ', s); end.