program LargestNumbervanum, largest: integeri, n: integerbegilargest := 0;
write('Enter the number of elements: ')readln(n);
write('Enter ', n, ' numbers: ')for i := 1 to n dbegireadln(num)if num > largest thelargest := numend;
writeln('The largest number is: ', largest)end.
program LargestNumber
va
num, largest: integer
i, n: integer
begi
largest := 0;
write('Enter the number of elements: ')
readln(n);
write('Enter ', n, ' numbers: ')
for i := 1 to n d
begi
readln(num)
if num > largest the
largest := num
end;
writeln('The largest number is: ', largest)
end.