Жила была девочка Настя.Она очень хотела научиться рисовать.В школе на уроках все смеялись над её рисунками и от того она приходила домой и плакала.Как то раз Настя пришла домой вся заплаканная,включила компьютер и тут на экран выскочил весёлый человечек:
-Не плачь ,милая девочка!Я помогу тебе!Я живу в твоём компьютере и всегда с умилением наблюдаю за твоими занятиями.Пойдём со мной!Не бойся !
Настя приложила свою руку к компьютеру и тут же оказалась по ту сторону экрана.......
Дальше, Анастасия, придумай пару предложений о путешествии их,если понравилась идея и на прощание человечек подарит Насте программу граф.редактор.И всё у неё будет хорошо
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;
В стандартных функциях такого никогда не встречал. Скорее всего это нестандартная процедура или функция, описанная пользователем в начале программы.
3 DIM i As Int, j As Int, P As Int, K As Int
7 P = 0 : K = i
9 If NAZ$=RM$(j) Then P = P + KOL Else RM$(j) = NAZ$ : P = KOL
11 KM(i) = P
Вроде бы так