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

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