Реферат: Тест программных программ

else If z>=70 Then Begin

Writeln('4')

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