Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
Вероятнее всего это то что тебе нужно. Я так понял это схема транзисторов, да?
Ответ:
One = input()
Two = input()
Three = input()
if One == 'раз' and Two == 'два' and Three == 'три':
print('ГОРИ')
else:
print('НЕ ГОРИ')
Объяснение:
проверил,работает