Как составить программу, в которой нужно сначала ввести число, а по нему ввести количество данных ? Например:
вводим:
5 
6 7 8 4 3
2
4 5
(строки 6 7 8 4 3 и 4 5 тоже числа, которые нужно вводить)

var a,b,c:integer;beginc:=0;writeln('введите количество чисел');readln(a);writeln('введите числа ');while (c<>a) do begin read(b);c:=c+1;end;end.