Урок 14.1 Задача 8

Урок 14.1 Задача 8

Напишите процедуру, которая выводит на экран максимальное из трех переданных целых чисел.

program u14_1_z8;
var  a,b,c:integer;

procedure p1(a,b,c: integer);
var max,d: integer;
begin

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

  d:=max;

  if (d > c) then
    max:= d
  else
    max:=c;

  writeln('maxsimalnoe ',max);
end;

begin
  writeln('vvedite 3 chisla');
  readln(a,b,c);
  p1(a,b,c);
  readln();
end.