Vypíše maximálne číslo z 3 zadaných čísel

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Program: Max.pas
Subor exe: Max.exe

Vypíše maximálne číslo z 3 zadaných čísel.
{ 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.