Сор по ивт номер 2 третья четветь ​

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

из пяти литровой переливаем в трех литровую получаем два литра сливаем их в ведро повтаряем процедуру получаем в ведре четыре литра

1)никакие люди не повторят подвиг матросова!

2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.

3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.