Составить программу, запрашивающую при помощи операторов ввода-вывода :фамилия, имя, год рождения, номер домашнего телефона и номер сотового телефона ученика.После вычислений и очистки экрана выдаются следующие сообщения приветствие с упоминанием введённого имени и номера его телефонов.

Program pro;
 uses crt;
 type anketa=recordfam:string[20];
 im:string[12];
 voz: 1..18;
 at: real;
 tel: integer;
 end;
 var i,n:integer;student: anketa;f:file of anketa;
begin
clrscr;
assign(f,C:/PABCWork.NET/St.dat);
reset(f);
Write(Введите количество новых учащихся);
 Readln(n);
For i:=1 to n doWrite(Введите Фамилию учащегося:);
 Readln(student.fam);
Write(f,student.fam, );
Write(Введите Имя учащегося:);
Readln(student.im);
Write(f,student.im, );
Write(Введите Возраст учащегося:);
 Readln(student.voz);
Write(f,student.voz, );
Write(Введите Средний бал аттестата учащегося:);
 Readln(student.at);
Write(f,student.at, );
Write(Введите Телефон учащегося:);
Readln(student.tel);
Writeln(f,student.tel);
end;
close(f);
readkey;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.