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.