# Find the greater of four numbers in Pascal (make a program)

October 2, 2021 | education

| var

a, b, c, d: integer;

function max (a, b: integer): integer;

begin

if a> b then max: = a

else max: = b;

end;

begin

write (‘Enter the first number:’); readln (a);

write (‘Enter the second number:’); readln (b);

write (‘Enter the third number:’); readln (c);

write (‘Enter the fourth number:’); readln (d);

writeln (‘The largest number among those entered:’, max (max (a, b), max (c, d)));

end.

One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.