Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / procedure / Program1

uses crt;
var a,b,c,max :integer;

// процедура на поиск максимального числа из трёх
 procedure maximum;
  begin
   max:=a;
   if a<b then max:=b;
   if a<c then max:=c;
  end;
  
begin
writeln('Введите три числа для сравнения');
readln(a,b,c);
  maximum;
 writeln('Наибольшее целое число = ',max);
 readln;
end.