Задача 14.1. Скласти програму для введення в пам'ять комп'ютера iнформацiї про 15 учнiв класу. (Прiзвище, iм'я, рiк народження, телефон). Вивести введену iнформацiю на екран.

Program Klas;
Type Student=Record
        Prizv: string[15];
        Imya: string[15];
        Rik: 1980..1990;
        Telefon:string[10];
end;
Var mas: array[1..15]of Student;
    i:integer;
Begin
{Введення даних}
 For i:=1 to 15 do
 With mas[i] do
 begin
 write('Введiть прiзвище ',i,'-'); readLn(prizv);
 write('Введiть iм"я '); readLn(imya);
 write('Введiть рiк '); readLn(rik);
 write('Введiть телефон '); readLn(telefon);
 end;
{Вивiд на екран}
for i:=1 to 15 do
 writeln(mas[i].prizv:15, mas[i].imya:15, mas[i].rik:6,
          mas[i].telefon:12);
end;