Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4 числа и выводить на экран номер наибольшего из них. Числа могут содержать дробную часть, Номер числа в
последовательности - целое число.​

var i, count:integer;

num, mx:real;

begin

mx:=-1;

for i:=1 to 4 do

begin

readln(num);

if num > mx then

begin

mx := num;

count := i;

end;

end;

write('Наибольшее число ', mx, ', а его номер в последовательности ', count);

end.

Если тебе мой ответ, то ты можешь сделать его лучшим)