ДАЮ 15 баллов срочно помогите (фотка)

№ 2 var a,b,s,p:real; begin writeln ('Введите сторону А'); readln(a); writeln ('Введите сторону B'); readln(b); p:= (a*b)*2; s:= (a*b); writeln ('Периметр прямоугольника равен',p); writeln ('Площадь прямоугольника равна',s); end. ------- № 3 var a,b,s,p: real; begin writeln ('Введите сторону А'); readln(a); b:=a+2; p:= (a*b)*2; s:= (a*b); writeln ('Периметр прямоугольника равен',p); writeln ('Площадь прямоугольника равна',s); end.