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

var a,i:integer;beginfor i := 1 to50readln(a);end.Все как заказывали. Можно ввести 50 чисел. И все))