program FindLargestNumber; var num1, num2, num3, num4, num5, largest: integer; begin writeln('Enter five numbers:'); readln(num1, num2, num3, num4, num5); largest := num1; if num2 > largest then largest := num2; if num3 > largest then largest := num3; if num4 > largest then largest := num4; if num5 > largest then largest := num5; writeln('The largest number is: ', largest); end.
var
num1, num2, num3, num4, num5, largest: integer;
begin
writeln('Enter five numbers:');
readln(num1, num2, num3, num4, num5);
largest := num1;
if num2 > largest then
largest := num2;
if num3 > largest then
largest := num3;
if num4 > largest then
largest := num4;
if num5 > largest then
largest := num5;
writeln('The largest number is: ', largest);
end.