составить программу которая позволяет ввести 50 целых чисел

var a,i:integer;
begin
for i := 1 to50
readln(a);
end.

Все как заказывали. Можно ввести 50 чисел. И все))