Екатерина Сушилина
Екатерина Сушилина

Прошу помогите решить задачу Pascal.

Приёмная комиссия Программа запрашивает с клавиатуры список учеников и их возраст. На основании этих данных выдаёт на экран список: о зачислении в определённый класс

В примере написано так:
Как вас зовут?
Ведите своё имя и нажмите Enter Иванов Вася
Ведите пожалуйста ваш возраст
8
Уважаемый Иванов Вася вы должны учится во 2 классе

ЕМ
Елена Москвина

var
i:byte;
m1:array[1..10] of string;
m2:array[1..10] of byte;
begin
repeat
begin
i:=i+1;
write('Vvedite FIO ',i,'go u4enika: ');
readln(m1);
write('Vvedite vozrast ',i,'go u4enika: ');
readln(m2);
end;
until i=10;
i:=0;
repeat
begin
i:=i+1;
writeln(i,'. ',m1,' ',m2,' let dolzhen u4itsya v ',m2-6,'-m klasse');
end;
until i=10;
readln;
end.

ДУ
Джалол Умаров

Какое то туманное условие. Программа что, наобум будет выбирать?

Похожие вопросы
Помогите решить задачу BPW pascal
Помогите решить задачу в Pascal!
помогите решить задачу, turbo pascal
Помогите решить задачи Pascal
Помогите решить задачу по pascal
помогите решить задачи (Pascal)
Помогите пожалуйста решить задача на Pascal
помогите решить задачу. pascal
Помогите решить задачу в Pascal!!!!
Turbo Pascal помогите решить задачу.