NEXT PAGE

program cel_mai_mare_nr;
var a,b,c:integer;
begin
write(‘a=’);
readln(a);
write(‘b=’);
readln(b);
write(‘c=’);
readln(c);
begin
if (a>b) and (a>c) then writeln(‘a=’,a)
else
if  (b>a) and (b>c) then writeln(‘b=’,b)
else
if (c>a)and (c>b) then writeln(‘c=’,c)
else writeln(‘nr sunt egale’);
end;
readln;
end.