program largestNumber;vara, b, c, d, maxNumber: integer;beginwriteln('Enter four numbers:');readln(a, b, c, d);
maxNumber := a;
if b > maxNumber thenmaxNumber := b;if c > maxNumber thenmaxNumber := c;if d > maxNumber thenmaxNumber := d;
writeln('The largest number is: ', maxNumber);end.
program largestNumber;
var
a, b, c, d, maxNumber: integer;
begin
writeln('Enter four numbers:');
readln(a, b, c, d);
maxNumber := a;
if b > maxNumber then
maxNumber := b;
if c > maxNumber then
maxNumber := c;
if d > maxNumber then
maxNumber := d;
writeln('The largest number is: ', maxNumber);
end.