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

program HelloWorld;vari, a, max: integer;beginread (a);max:=a;for i:=1 to 6 dobegin read(a); if a>max then max:=a;end;write('max - ',max);end.

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