Составьте программу, вычисляющую периметр прямоугольника. Код программы сфотографировать и прислать​

program qq;

var a,b,s,p : integer;

begin

writeln('Введите стороны прямоугольника');

read(a,b);

s:=a*b;

p:=2*(a+b);

writeln('Площадь прямоугольника равна ',s);

writeln('Периметр прямоугольника равен ',p);

end.

Объяснение:

# Формула P=2(a+b)

a = 3

b = 4

P=2*(a+b)

print(P)