Пишется Фамилия, имя и отчество одной строкой без пробелов. Фамилия, имя и отчество пишутся с большой буквы («ФамилияИмяОтчество»). Вариант задания 1-го блока выбирается следующим образом: в получившейся строке берется первая и последняя буква, складываются их ASCII-коды и находится остаток получившейся суммы при делении на 4, с прибавлением 1 — Pascal(Паскаль)

Например, пусть коды 143 и 157. 143+157=300. 300 = 75 ∙ 4 + 0. Получившийся номер варианта 0+1=1. )

program qwe;
uses crt;
var s:string;
    i,zad1,zad2,zad3,zad4,zad5,zad6:integer;
begin
clrscr;
writeln('vvedite FIO');
read(s);
for i:=1 to length(s) do
begin
zad1:=(ord(s[1])+(ord(s[length(s)]))) mod 4+1;
end;
for i:=1 to length(s) do
begin
zad2:=(ord(s[2])+(ord(s[length(s)-1]))) mod 4+1;
end;
for i:=1 to length(s) do
begin
zad3:=(ord(s[3])+(ord(s[length(s)-2]))) mod 4+1;
end;
for i:=1 to length(s) do
begin
zad4:=(ord(s[4])+(ord(s[length(s)-3]))) mod 4+1;
end;
for i:=1 to length(s) do
begin
zad5:=(ord(s[5])+(ord(s[length(s)-4]))) mod 4+1;
end;
for i:=1 to length(s) do
begin
zad6:=(ord(s[6])+(ord(s[length(s)-5]))) mod 4+1;
end;
writeln(zad1);
writeln(zad2);
writeln(zad3);
writeln(zad4);
writeln(zad5);
writeln(zad6);
end.