Дипломная работа: Языки программирования

                                        Writeln(b1,’4’);

                                        End;

        else If z>=40 Then Begin

                                        Writeln('3')

                                        Writeln(b1,’3’);

                                        End;

        else                  Begin

                                Writeln('2')

                                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,' ');