Нужны примеры любых задач с входными и выходными данными

begin
writeln('Унылая пора! Очей очарованье!'); writeln('Приятна мне твоя прощальная пора.'); writeln('Люблю я пышное природы увяданье,'); writeln('В багрец и золото одетые леса.'); writeln;
writeln(' А.С.Пушкин');
readln; { чтобы стихотворение не исчезло с экрана } end.

writeln(а:6:2); writeln(b:6:2); writeln(с:6:2);

writeln('xl=',xl:6:2, ¦ х2=',х2:6:2);

uses Crt; begin
TextBackGround(Blue); { цвет фона } TextColor(LightGray); { цвет символов } ClrScr; { очистить экран }
writeln('Буря мглою небо кроет'); writeln('Вихри снежные крутя.'); writeln('То как зверь она завоет,'); writeln('То заплачет, как дитя.');
writeln;
writeln(' А.С.Пушкин');
readln; { чтобы стихотворение не исчезло с экрана } end.

Uses Crt; begin
TextBackGround(Black); ClrScr;
TextColor(Red); write('Каждый ');
TextColor(LightRed);{оранжевый заменим светло-красным} write('охотник '); TextColor(Yellow); write('желает '); TextColor(Green); write('знать '); TextColor(LightBlue); write('где '); TextColor(Blue); write('сидит '); TextColor(Magenta); write('фазан.');
readln; { чтобы фраза не исчезала с экрана } 
end.

readln(и); readln(г);

readln(и,г);

{ объявление переменных }
г, h : real; {радиус и высота цилиндра}
v: real; { объем цилиндра}
 
{ фрагмент программы }
writeln('Введите исходные данные:');
write('Радиус цилиндра —>');
readln ( г ) ;
writeln('Высота цилиндра —>');
readln(h);

{ Создает на диске А: файл и записывает в него 5 целых чисел, введенных пользователем } 
var
f: text; { текстовый файл } 
n: integer; { число }
i: integer; { счетчик чисел }
 begin
writeln('Создание файла'); 
writeln('Введите пять целых чисел.1);
writeln('После ввода каждого числа нажимайте <Enter>'); 
Assign(f,'а:\numbers.txt');
Rewrite(f); { открыть в режиме перезаписи } 
for i:=l to 5 do begin
write('->'); readln(n); 
writeln(f,n); 
end;
close(f); { закрыть файл } 
writeln('Введенные числа записаны в файл ', 'а:\numbers.txt'); 
readln; 
end.

{Дописывает в файл a:\numbers.txt пять введенных пользователем целых чисел }
f: text; { текстовый файл }
n: integer; { число }
i: integer; { счетчик чисел }
begin
writeln('Добавление в файл a:\numbers.txt'); 
writeln('Введите пять целых чисел.');
writeln('После ввода каждого числа нажимайте <Enter>'); 
Assign(f,'а:\numbers.txt');
Append(f); { открыть файл в режиме добавления } 
for i:=l to 5 do begin
write('->');
readln(n);
writeln(f,n); 
end; 
Close(f); { закрыть файл }
writeln('Введенные числа добавлены в файл ', 'а:\numbers.txt'); readln;
end.

{ Выводит на экран содержимое файла а:\numbers.txt } 
var
f: text; { текстовый файл } 
n: integer; { число } 
begin
writeln('Содержимое файла a:\nunibers.txt1);
writeln ('-----------------------------') ;
Assign(f,'a:\numbers.txt'); Reset(f); { открыть файл для чтения } 
While not EOF(f) do { пока не достигнут конец файла } begin
readln(f,n); { прочитать число из файла } 
writeln(n); { вывести прочитанное число на экран } 
end;
Close(f); 
writeln ('-readln);
end.

{Вычисляет среднее арифметическое чисел, находящихся в файле a:\numbers.txt }
var
f: text; { текстовый файл } 
n: integer; { число, прочитанное из файла } 
kol: integer; { кол-во прочитанных чисел }
sum: integer; { сумма прочитанных чисел } 
sa: real; { среднее арифметическое }
begin
writeln('Вычисление среднего арифметического чисел,'); 
writeln('находящихся в файле a:\numbers.txt'); 
writeln('Чтение из файла. Подождите.'); 
sum:=0; kol:-0;
Assign(f,'a:\numbers.txt'); Reset (f); { открыть файл для чтения } 
While not EOF(f) do { пока не достигнут конец)
 begin
readln(f,n); { прочитать число из файла }
sum:=sum+n;
kol:=kol+l; 
end;
Close(f); { закрыть файл } 
sa:=sum/kol;
writeln('Прочитано чисел: ',kol); writeln('Сумма чисел: ',sum) ; writeln('Среднее арифметическое: ',sa:9:2); 
readln;
end.

{ Выводит на экран содержимое файла, имя которого указано пользователем } 
uses Crt;
f: text; { текстовый файл }
fname: string[80]; ( имя файла }
st: string; { строка, прочитанная из файла }
'nst: integer; { кол-во выведенных на экран строк}
key: char; { клавиша, нажатая пользователем }
begin
ClrScr; { очистить экран } 
writeln('Просмотр текстового файла');
writeln('Введите полное имя файла и нажмите <Enter>'); 
write('-> '); readln(fname); 
Assign(f,fname);
Reset(f); { открыть файл для чтения } 
ClrScr; 
nst:=0;
While not EOF(f) do { пока не достигнут конец файла } 
begin
readln(f,st); ( прочитать число из файла } 
writeln(st); 
• nst:=nst+l;
if nst = 23 then { выведены очередные 23 строки } 
         begin
writeln;
write('Для продолжения вывода ',
'нажмите любую клавишу...'); 
key:=Readkey;
GotoXY(l,WhereY); { курсор в начало текущей строки } 
DelLine; { удалить сообщение "Для продолжения ..."} 
nst:=0; 
end; 
end;
Close(f); { закрыть файл } 
writeln;
write('Для завершения просмотра нажмите любую ', 'клавишу...'); 
key:=Readkey;
end.

{ Дописывает в файл а:\phone.txt фамилию, имя и номер телефона. Если файла на диске нет, то создает его. } label
     bye; 
var
f: text; { текстовый файл } 
fam: string[15]; { фамилия } 
name: string[15]; { имя } 
tel: string[9]; { номер телефона } 
begin
writeln('Добавление в телефонный справочник');
Assign(f,'a:\phone.txt'));
{$1-}
Append(f); { сначала откроем в режиме добавления }
if IOResult <> 0 then
{ вероятно файла phone.txt нет на диске А:}
{ создадим его }
begin
Rewrite(f); { открыть в режиме перезаписи } 
if IOResult О 0 then begin
writeln('Ошибка обращения к диску А:'); 
goto bye; 
end; 
end;
{ получим данные от пользователя } 
write('Фамилия ->') ; readln(fam); 
write('Имя ->'); readln(name); 
write('Телефон ->') ; readln(tel); 
{ и запишем их в файл } 
writeln(f,fam); 
writeln(f,name); 
writeln(f,tel); 
close(f); 
writeln('Информация добавлена.': writeln('Для завершения работы ', 'нажмите <Enter>.'); 
readln; 
end.

{ Поиск в телефонном справочнике }
label bye;
var
f: text; { текстовый файл } 
obr: string[15]; { фамилия для поиска }
n: integer; { кол-во записей, удовлетворяющих запросу }
fam: string[15]; { фамилия } 
name: string[15]; { имя } 
tel: string[9]; { номер телефона } 
begin
writeln('Поиск в телефонном .справочнике'); 
Assign(f,'a:\phone.txt');
reset (f); ( откроем файл для чтения } 
if IOResult О 0 then
{ вероятно файла phone.txt на диске А: нет } 
begin
writeln('Файл a:\phone.txt не доступен'); 
goto bye; 
end;
repeat
write('Фамилия ->') ; readln(obr);
if Length(obr) <> 0 then { пользователь ввел строку } 
begin
reset(f); { просматриваем файл от начала } 
n:=0;
while not EOF(f) do { просматриваем весь файл } 
begin
{ читаем из файла } 
readln(f,fam);
readln(f,name) ; 
readln(f,tel);
if fam = obr then { найдена нужная фамилия } 
begin
writeln(fam,' ',name, ' ',tel); 
n:=n+l; 
end; 
end; 
if n = 0 then writeln('Сведений о ' , obr,' нет.'); 
end;
until Length(obr) = 0; 
bye:
writeln('Для завершения работы нажмите <Enter>.'); 
readln; 
end.

{ Универсальная программа тестирования } 
uses Crt;
label bye;
fname: string[40]; { имя файла теста } 
f: text; ( файл теста }
VsegoVopr: integer; { количество вопросов теста } 
PravOtv: integer; { количество правильных ответов }
{ для текущего вопроса }
nOtv: integer; { количество альтернативных ответов }
prav: integer; { номер правильного ответа)
Otv: integer; { номер ответа, выбранного пользователем }
st: string; { строка, читаемая из файла теста } 
р: integer; { процент правильных ответов }
1: integer; { счетчик циклов } in
if ParamCount = 0 then begin
writeln('He задан файл вопросов теста!'); ' writeln('Командная строка: test ИмяФайлаТеста');
goto bye; 
end;
fname:=ParamStr(1) ; { имя файла из командной строки } 
Assign(f,fname);
{$1-} { это директива компилятору, а не коментарий! } 
Reset (f); { открыть файл для чтения )
if IOResult <> 0 then begin
writeln('Не найден файл теста ', fname); 
goto bye; 
end;
writeln('Сейчас Вам будет предложен тест.'); 
writeln('К каждому вопросу дается несколько вариантов ', 'ответа.'); "
writeln('Вы должны ввести номер правильного ответа', 'и нажать клавишу <Enter>'); 
writeln;
writeln('Удачи! Для начала тестирования нажмите <Enter>'); 
TextBackGround(Blue); 
ClrScr; 
VsegoVopr:=0; 
Prav:=0;
while not EOF(f) do begin
(ClrScr;}
VsegoVopr:=VsegoVopr+l;
readln(f,st); { читаем из файла вопрос } 
TextColor(White);
writeln(st); { выводим вопрос на экран } 
readln(f,nOtv,Prav); { читаем кол-во альтернативных ответов и номер правильного ответа } 
TextColor(LightGray);
for i:=l to nOtv do { читаем и выводим альтернативные ответы }
begin
readln(f,st); 
writeln(i,'. ',st); 
end;
writeln;
write('Ваш выбор ->'); 
readln(Otv);
if Otv = Prav then PravOtv:=PravOtv+l; 
writeln; 
end;
{ обработка результата тестирования } 
{ вычислим процент правильных ответов }
p:=Round((PravOtv/VsegoVopr)*100); 
write('Ваша оценка '); 
case p of
100:writeln('ОТЛИЧНО!'); 
80..99:writeln('ХОРОШО.'); 
60..79:writeln('УДОВЛЕТВОРИТЕЛЬНО.); 
else writeln('ПЛОХО!'); 
end; 
bye;
write('Для завершения работы программы нажмите <Enter>'); 
readln; 
end.

{Выводит таблицу пересчета из дюймов в миллиметры на экран, принтер или в файл}
f:text; { файл вывода } 
fname:string; { имя файла вывода } 
dest:integer; { 1 - на экран, 2 - на принтер, 3 - в файл }
d: real; { величина в дюймах }
m: real; { величина в миллиметрах}
begin
writeln('*** Таблица пересчета из дюймов ', 'в миллиметры ***');
writeln('Результат выводить:'); 
writeln('l - на экран;'); 
writeln('2 - на принтер;1); 
writeln('3 - в файл.');
writeln('Введите число от 1 до 3 и нажмите <Enter> '); 
write('Ваш выбор -> '); 
readln(dest); 
case dest of
1: fname:=''; {на экран } 
2: begin { на принтер } fname:='prn';
write('Включите принтер и нажмите <Enter>'); 
readln; 
end; 
3: begin { в файл }
write('Задайте имя файла для вывода -> '); 
readln(fname); 
end; 
end;
assign(f,fname); rewrite(f);
writeln(f,' ------------------') ;
writeln(f,' Дюймы Миллиметры');
writeln(f,' -------------------') ;
d:=0.5;
while d < 10 do begin
m:=25.4*d; { 1 дюйм - 25,4 мм } 
writeln(f,d:6:l,m:10:1); 
d:=d+0.5; 
end;
writeln(f,' -------------------');
close(f); 
if dest = 3
then writeln('Таблица записана в файл ',fname);
writeln('Для завершения работы программы', 1 нажмите <Enter>'); 
readln;
end.

program inputoutput;
var
finput: text; {входной текстовый файл } 
foutput: text; {ответный текстовый файл }
n: integer; { число, прочитанное из файла } 
kol: integer; { кол-во прочитанных чисел }
sum: integer; { сумма прочитанных чисел } 
sa: real; { среднее арифметическое }
begin
writeln('Вычисление среднего арифметического чисел,');
writeln('находящихся в файле input.txt');
writeln('Чтение из файла. Подождите.');
sum:=0; kol:=0;
Assign(finput,'input.txt'); Reset (finput); { открыть файл для чтения } 
While not EOF(finput) do { пока не достигнут конец файла - читай его }
 begin
readln(finput,n); { прочитать число из файла }
sum:=sum+n; { прибавить к сумме новое слагаемое }
kol:=kol+1; { посчитать количество элементов - чисел }
end;
Close(finput); { закрыть входной файл } 
sa:=sum/kol; { найти среднее арифметическое }  
Assign(foutput,'output.txt'); Append(foutput); { открыть файл в режиме добавления } 
writeln(foutput, 'Прочитано чисел: ',kol); { добавить записи } 
writeln(foutput, 'Сумма чисел: ',sum) ; 
writeln(foutput, 'Среднее арифметическое: ',sa:9:2);  
Close(foutput); { закрыть файл }
writeln('Данные записаны в файл output.txt ');
end.