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