1. Составить программу максимума из двух чисел.

2. Составить программу вычисления наибольшего из четырех чисел с использованием процедуры определения наибольшего из двух чисел.

1) program p1;

var a, b:integer;

begin

writeln ('Введите 1-е число: ') ; read (a) ;

writeln ('Введите 2-е число: ') ; read (b) ;

if (a>=b) then writeln ('максимальное число: ', a) else writeln ('максимальное число: ', b) ;

end.

2)

program p1;

procedure MaxNumber (a, b: integer; var max: integer) ;

begin

if a>=b then max:=a else max:=b;

end;

var a, b, c, d, m:integer;

begin

writeln ('Введите 1-е число: ') ; read (a) ;

writeln ('Введите 2-е число: ') ; read (b) ;

writeln ('Введите 3-е число: ') ; read (c) ;

writeln ('Введите 4-е число: ') ; read (d) ;

MaxNumber (a, b, m) ;

MaxNumber (m, c, m) ;

MaxNumber (m, d, m) ;

writeln ('максимальное число: ', m) ;

end.