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

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

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