на языке Паскаль ввести 4 числа и вывести большее из них

С циклом for для натуральных чисел: var a, i, max:integer;beginmax:=0;writeln ('Введите натуральное число');for i:=1 to 4 dobeginreadln (a);if (a>max) then max:=a;end;writeln ('Максимальное число ', max);end.