Составить программу, которая запрашивает предложение и выводит ** экран все его буквы...

Question

Составить программу, которая запрашивает предложение и выводит на экран все его буквы "и". Программу составить при помощи Pascal ABC

Answer 1

var
  s: string;
  i: integer;
begin
  readln(s);
  for i := 1 to length(s) do
    if(s[i] = 'и') or (s[i] = 'И') then write(s[i], ' ');
end.