помогите, срочноооо​

1) var a,b,P: integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

P:=(a+b)*2;

writeln('P = ',P);

end.

2) var a,b: integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

if a>b then

writeln(a,'>',b)

else

if b>a then

writeln(b,'>',a)

else

if a=b then

writeln(b,'=',a)

end.