Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

                                Writeln(b1,’2’);

                                End;

        Readln;

        Write('Фамилия: '); {вписывание фамилии}

        Readln(a);

        d:=length(a); {выставление пробелов}

        Write(b1,a); {запись в файл}

        For i:=1 to 14-d do Write(b1,' ');

        Write('Имя: '); {вписывание имени, процедура повторяется}

        Readln(a);

        Write(b1,a);

        d:=length(a);

        For i:=1 to 11-d do Write(b1,' ');

        Write('Отчесчтво: '); {вписывание отчества, процедура повторяется }

        Readln(a);

        Write(b1,a);

        d:=length(a);

        For i:=1 to 17-d do Write(b1,' ');

        Write(b1,f);

        d:=length(f);

        For i:=1 to 8 do Write(b1,' ');

        GetDate(g1,g2,g3,g4);   {проставление даты}

        Writeln(b1,g3,'.',g2,'.',g1);

        close(b1);

        Window(15,10,50,19);

Рекомендуем скачать другие рефераты по теме: решебник по математике 5, сочинение почему.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки