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

Спасибо)

Program mm;Var a,b,n,k:integer;BEGINn:=3; / задаем кол-во чиселwhile (n>k) do begink:=k+1;readln (b); / вводим нужное числоif (b>a) then a:=b; / задаем величине 'а' наибольшее значениеend;writeln (a); / выводим(если надо)END.Должно сработать. Сейчас нет возможности проверить.