Pascal ABC, Turbo Pascal 7, Free Pascal, функции Pascal, Паскаль
function Pos(Строка: string; Подстрока: string): byte;
Скачать Pascal ABC
Скачать Turbo Pascal