program liczby;
uses dos,crt;

VAR
a,b,c:integer;

BEGIN
clrscr;

writeln('podaj a');
readln(a);
writeln('podaj b');
readln(b);
writeln('podaj c');
readln(c);

if a>b THEN writeln('a najwieksza')

else
begin
if b>c THEN writeln('b najwieksza')


else
begin

if c>a then writeln('c najwieksza')

else
begin

writeln('a najwieksza')
end;
end;
end;
readln;
readln;

end.