У студента-филолога Васи есть замечательный друг Петя. И Петя никак не может выучить английский язык. Английский текст Петя еще кое-как читает, но пишет с ужасными ошибками, причем чаще всего он вставляет в слова лишние буквы.

Вася решил помочь Пете. Теперь каждый день Вася диктует Пете слова, а Петя их записывает. После семестра занятий Петя стал писать много лучше и теперь делает в словах только по одной ошибке. Чтобы автоматизировать процесс исправления ошибок, Вася просит Вас написать программу, которая удаляет из слова одну лишнюю букву и показывает Пете правильное слово.
Испраьте ошибки или напишите свой код сколько пытался ничего не получается:
Вот мой код
var s:string;
t:integer;
begin
readln(t);
readln(S);
Delete(S, t,1);
writeln(s);
end.

5-9 классы Java не изучают.

Предполагается без проверки, что Петя вставил ровно один ошибочный символ.

Добавил картинку. Здешний кривой сервис сожрал все форматирование.

Составлено на джаве:import java.util.Scanner;public class mistake { public static void main(String[] args) { Scanner in = new Scanner(System.in); System.out.print("Введите слово с ошибкой: "); String word = in.nextLine(); System.out.print("Введите ошибку: "); String mistake= in.nextInt(); StringBuffer sb = word; sb.delete (mistake); System.out.println("Слово без ошибки"+sb); } }

// PascalABC.NET 3.4, сборка 1767 от 27.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var Вася:=ReadlnString('Какое слово продиктовал Вася?');

var Петя:=ReadlnString('Какое слово написал Петя?');

for var ПозицияСимвола:=1 to Вася.Length do

if Вася[ПозицияСимвола]<> Петя [ПозицияСимвола] then

begin

Println('В позиции',ПозицияСимвола,'Петя ошибся');

Println('Он вставил лишнюю букву',Петя[ПозицияСимвола]);

Exit

end;

Println('В позиции',Петя.Length,'Петя ошибся');

Println('Он вставил лишнюю букву',Петя.Last)

end.

Пример работы

Какое слово продиктовал Вася? squirrel

Какое слово написал Петя? squirrael

В позиции 7 Петя ошибся

Он вставил лишнюю букву a