Question

help
Написать в тетради программу pascal, которая определяет наибольшее из семи чисел(числа вводятся пользователям во время работы программы)

Answer 1

ответ ниже в комментарии

Answer 2

program HelloWorld;

var

i, a, max: integer;

begin

read (a);
max:=a;

for i:=1 to 6 do
begin
read(a);
if a>max then max:=a;
end;

write('max - ',max);

end.