Posiadam taki kod:
Kod: Zaznacz cały
program testowy;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Podaj trzy liczby');readln(a,b,c);
begin
if (a>b) and (a>c) then writeln(a);
if (b>a) and (b>c) then writeln(b);
if (c>a) and (c>b) then writeln(c);
end;
begin
if (a<b) and (a<c) then writeln(a);
if (b<a) and (b<c) then writeln(b);
if (c<a) and (c<b) then writeln(c);
end;
readkey;
end.