Присвойте величине а значение наибольшего из 3-х данных чисел. Паскаль.

Program mm;
Var a,b,n,k:integer;
BEGIN
n:=3; / задаем кол-во чисел
while (ngt;k) do begin
k:=k+1;
readln (b); / вводим необходимое число
if (bgt;a) then a:=b; / задаем величине 'а' наибольшее значение
end;
writeln (a); / выводим(если надобно)
END.

Обязано сработать. На данный момент нет способности проверить.