Writes out the maximum number out of the three given numbers

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Program: Max.pas
File exe: Max.exe

Writes out the maximum number out of the three given numbers.
{ 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.