Примерный код на Pascal:

program MaxNumber;
var
num, maxNum, count, maxCount: integer;
begin
maxNum := -9999;
maxCount := 0;
for count := 1 to 4 do
begin
write('Введите число ', count, ': ');
readln(num);
if num > maxNum then
begin
maxNum := num;
maxCount := count;
end;
end;
writeln('Наибольшее число: ', maxNum);
writeln('Оно было введено под номером: ', maxCount);
end.

Вы можете скопировать и вставить этот код в среду программирования Pascal, чтобы запустить его и ввести 4 числа с клавиатуры. После этого программа выведет наибольшее число и номер, под которым оно было введено.