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

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