Задачи с входными и выходными файлами

program xxx;
var
 f1,f2:text;
 ch,c,i,ii,nc:integer;
 sh:string;
begin
 assign(f1,'input.txt');
 assign(f2,'output.txt');
 reset(f1);
 readln(f1,ch);
 close(f1);
 case ch of
  1:ch:=9;
  2:ch:=99;
  3:ch:=999;
  4:ch:=9999;
  5:ch:=99999;
 end;
 rewrite(f2);
 for i:=ch downto 1 do begin
  str(sh,ch);
  for ii:=1 to length(sh) do c:=c*sh[i];
  if ch mod c=0 then begin
   writeln(f2,ch);
   nc:=nc+1;
   if nc=5 then break;
  end;
 end;
 close(f2);
end.

program xxx;
var
 f1,f2:Text;
 a,sa:array[1..10]of byte;
 i,cs:integer;
 sr:real;
begin
 assign(f1,'input.txt');
 assign(f2,'output.txt');
 reset(f1);
 for i:=1 to 10 do read(f1,a[i]);
 close(f1);
 for i:=1 to 10 do sr:=sr+a[i];
 sr:=sr/2; //или \, посмотри сам.
 for i:=1 to 10 do
  if a[i]>sr then begin
   cs:=cs+1;
   sa[cs]:=a[i];
  end;
 rewrite(f2);
 for i:=cs downto 1 do write(f2,sa[i]:4);
 close(f2);
end.

Programm sred10;
Var
I: integer;
Summ, Sredn: real;
A:array [1…10] of real;
Inp,out:fail;
 
Begin;
Assign(inp,’inp.txt’); ----имя входного файла
Reset(inp); ----открываем этот файл
Summa:=0; ---обнуляем исходные величины
Sredn:=0;
For i:=1 to 10 do -- цикл чтения и суммирования
begin
Reasln(inp,A); ---чтение чисел
Summa:=Summa+A; ---суммирование
End;
Close(inp); ---файл прочитан , закрываем
Sredn:= Summa/10; - расчет среднего
Assign(out,’output.txt’); -- имя выходного файла
Rewrite(out); -- открываем выходной файл
---Самое главное – в обратном порядке
For I:=10 DOWNTO 1 do If a>Sredn then Writeln(out, a[1]:5;2)); ---если БОЛЬШЕ, то печатаем
Close(out); ---закрываем выходной файл
End. – заканчиваем программу.

program xxx;
var
 i,hm,n,pn,imn:integer;
 f1,f2:Text;
 c:array[1..200]of char;
begin
 assign(f1,'input.txt');
 assign(f2,'output.txt');
 n:=10000;
 reset(f1);
 while not EOF(f1) do begin
  hm:=hm+1;
  read(f1,c[hm]); //Если ошибка, то после ] добавьте ":1"
  case ord(c[hm]) of
   65..90,97..122:pn:=pn+1
    else if pn<n then n:=pn;
  end;
 end;
 for i:=1 to hm do
  case ord(c[i]) of
   65..90,97..122:for imn:=1 to n do begin
     c[i]:=chr(ord(c[i])-1);
     if ord(c[i])<65 then c[i]:='Z';
     if ord(c[i])=96 then c[i]:='z';
    end;
  end;
end.

Var
  S,T:string[200];  --- исходная и расшифрованные строки
  Sdvig,Min: integer;
  Inp, out:fail;
 
Begin
Assign(inp,'input.txt');
Reset(inp);
Readln(inp,S);
Close(inp);
 
---- определяем минимальную слово
Min:=200;Sdvig:=0;
For i:=1 to 200 do 
Begin
If S[i]<>'   then Inc(Sdvig)     (((((Можно заменить на Sdvig:=sdvig+1
 Else begin
If Ishodn<Min then Min=sdvig 
Else sdvig:=0;
End.
End.
---- всё     конец строки 
sdvig:=min; -   сдвиг шифра определен.
Теперь расшифровка
 
 
For i:=1 to 200 do ORD(T[i]):=ORD[S[i]+sdvig;  ---расшифровка шифр.
Код буквы (ORD) сдвигается на число SDVIG
 
 
И теперь запись в файл  новой строки Т.
Думаю, что и сам сможешь
 
 
 
А про квадраты такой алгоритм
Читаешь координаты, а звтем ПРОВЕРЯЕШЬ ЯВЛЯЮТСЯ ЛИ  это сторонами квадрата.
Там же в задаче лажу могут подуинуть
 
Координаты дадут, но не КВАДРАТА.
 
A[i]-b[i]=C[i]-D[i] --- КРАКТКО а=в.
Если да, то квадрат, А УЖ как найти миимум ты знаешь.
Сначала MIN= очень, НУ ОЧЕНЬ БОЛЬШОЕ ЧИСЛО,  а потом становится маленьким.