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.