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.