Umístnení souboru www.TrSek.com/zadania/max.pas{ MAX.PAS Copyright (c) TrSek alias Zdeno Sekerak }
{ Vypise maximalne cislo z 3 cisel }
{ Vstup : 3 cele cisla }
{ Vystup: maximalne cislo }
{ }
{ Datum:10.04.2000 http://www.trsek.com }
program max(input,output);
var a,b,c:real;
begin
writeln ('zadaj a,b,c:');
readln(a,b,c);
if a>b then b:=a;
if b<c then b:=c;
writeln('max=',b);
ReadLn;
end.