ПОМОГИТЕ ПОЖАЛУЙСТА) 96. Дано предложение, в котором имеются одна буква «с» и одна буква...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА)

96. Дано предложение, в котором имеются одна буква «с» и одна буква «т». Определить, какая из них встречается раньше (при просмотре слова слева направо). ЭТО ПАСКАЛЬ, СТРОКИ)

Answer 1

var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
  then writeln ('Буква «т» встречается раньше')
  else writeln('Буква «с» встречается  раньше');
end.