Информатика для вычисления диагонали прямоугольная. а, в - стороны прямоугольника, вводятся с клавиатуры

Program variant;var a,b,p,S:integer;beginwriteln('введите две стороны');read(a,b);p:=2*(a+b);S:=a*b;writeln('периметр равен', а, ', площадь равна',b);end.