Срочно,информатика (решить все через while)
1.Составьте и отдадите программу,определяющую максимальное из всех введенных вами чисел.(Пусть признаком конца ввода чисел является введённое число 0)
2Найти наибольшее и наименьшее значение функции y=3x^2+x-4,если на заданном интервале [a,b] x изменяется с шагом 0,1.
3.Составьте программу определения наибольшего общего делителя двух натуральных чисел

1 задачаprogram p1;var  max, a: integer;begin  max := 0;  writeln('Введите число');  readln(a);  while a <> 0 do  begin    if a > max then      max := a;    readln(a);  end;  writeln(max);end.