a)
program name;
var a,b,c:integer;
begin
c:=0;
readln(a,b);
If (a>b+c) then writeln('Наибольшее число: ' , a)
else if (a<b+c) then writeln('Наибольшее число: ' , b)
else write();
readln(); // взависимости от компилятора.
end.
Сейчас ещё что-нибудь решу!