напишите пожалуйста программу в паскале! дано предложение.вывести на экран слова, начинающиеся и оканчивающиеся на одну и ту же букву.

vara,t:string;b:array[1..100]of string;j,i,k,n:integer;beginwriteln(vvedite predlojenie);readln(a);a:= +a;for i:=1 to length(a) doif a[i]= then inc(k) else b[k]:=b[k]+a[i];writeln(slova s odinakovymi 1 i posledney bukvoy);for i:=1 to k dobegint:=b[i];if t[1]=t[length(t)] then write(t, );end;writeln;writeln (slova s 3 e);for i:=1 to k dobeginn:=0;t:=b[i];for j:=1 to length(t) doif t[j]=e then inc(n);if n=3 then write (t, );end;writeln;writeln(slova s bukvoy o);for i:=1 to k dobeginn:=0;t:=b[i];for j:=1 to length(t) doif t[j]=o then n:=1;if n=1 then write (t, );end;end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.