Задачі

Два бандити(Бандити Гаррі і Ларрі відпочивали на природі. Вирішивши постріляти, вони виставили на колоду кілька банок з-під пива (не більше 10). Гаррі почав прострілювати банки по порядку, починаючи з самої лівої, Ларрі - з самої правої. У якийсь момент вийшло так, що вони одночасно прострелили одну і ту ж останню банку.
Гаррі обурився і сказав, що Ларрі повинен йому купу грошей за те, що той позбавив його задоволення прострелити кілька банок. У відповідь Ларрі сказав, що Гаррі повинен йому ще більше грошей з тих же причин. Вони стали сперечатися хто кому скільки винен, але ніхто з них не пам'ятав скільки банок було на початку, а шукати прострелені банки по всій окрузі було неохота. Кожен з них пам'ятали тільки, скільки банок прострелив він сам.
Визначте за цими даними, скільки банок не прострелив Гарі і скільки банок не прострелив Ларрі.Вхідні даніУ єдиному рядку вхідного файлу INPUT.TXT записано 2 числа - кількість банок, прострелених Гаррі і Ларрі відповідно.Вихідні даніУ файл OUTPUT.TXT виведіть 2 числа - кількість банок, не прострелених Гаррі і Ларрі відповідно.

 
program task3;
var
  a,b,c,d,f:integer;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite (output);
  readln(a,b);
  c:=a+b-1;
  d:=c-a;
  f:=c-b;
  writeln(output,d,' ',f);
  close(input);
  close(output);
end.
 

Наведемо програму, що виводить на екран перші п'ять рядків текстового файла.

Program ex5;
var f:text;
  s:string;
  i:integer;
begin
  writeln('reading rows from the text file');
  assign(f,'t.txt');
  reset(f);
  for i:=1 to 5 do
    begin
      readln(f,s);
      writeln(s);
    end;
  close(f);
  readln;
end.