Function Divide(Y, X : String) : String;
  var
    digit, z, num, i    : Integer;
    X1, result          : String;
  begin
    If More(X, Y) then begin
                         Divide := '0';
                         Exit;
                       end;
    X1 := X;
    While not More(X1, Y) do X1 := X1 + '0';
    Delete(X1, Length(X1), 1);
    If Length(X1) = Length(Y) then num := Length(Y) - Length(X) + 1
                              else num := Length(Y) - Length(X);
    result := '';
    For z := 1 to num do begin
      X1 := X;
      For i := 1 to num-z do X1 := X1 + '0';
      digit := 0;
      While not More(X1, Y) do begin
        Y := Sub(Y, X1);
        Inc(digit);
      end;
      result := result + ChrDigit(digit);
    end;
    Divide := result;
  end;

uses crt;
const
  BoxFDDCnt = 12;
  CaseFDDCnt = 12;
  FDDCost = 11.5;
  FDDBoxCost = 114.5;
  FDDCaseCost = 1255.0;

var
  N, m, FDD, BoxFDD, CaseFDD: integer;

begin
  clrscr;
  write('Floppy count N = ');
  readln(N);
  CaseFDD := N div (CaseFDDCnt*BoxFDDCnt);
  BoxFDD := (N - CaseFDD*CaseFDDCnt*BoxFDDCnt) div BoxFDDCnt;
  FDD := N - CaseFDD*CaseFDDCnt*BoxFDDCnt - BoxFDD*BoxFDDCnt;
  if FDD*FDDCost>=FDDBoxCost then
  begin
    FDD:=0;
    BoxFDD:=BoxFDD+1;
  end;
  if BoxFDD*FDDBoxCost>=FDDCaseCost then
  begin
    BoxFDD:=0;
    CaseFDD:=CaseFDD+1;
  end;
  writeln(CaseFDD,' FDD Cases, ',BoxFDD,' FDD Boxes, and ',FDD,' FDD''s');
  write('Cost = ',CaseFDD*FDDCaseCost+BoxFDD*FDDBoxCost+FDD*FDDCost:10:2,'RUR');
  readln;
end.

var n,s,i,j,t:integer;
begin
write('Enter n=');
readln(n);
s:=0;
for i:=1 to n do
begin
  j:=i;
  while (j<>1) and (j<>4) do
  begin
    t:=j;
    j:=0;
    while t>0 do
    begin
      j:=j+sqr(t mod 10);
      t:=t div 10;
    end;
  end;
  if j=1 then
  begin
    writeln(i);
    inc(s);
  end;
end;
writeln(s);
readln;
end.

uses crt;

function DecompNum(num: integer): integer;
var
  sum: longint;
  tnum: longint;
begin
  if num=0 then
    DecompNum:=0
  else
  begin
    tnum:=abs(num);
    repeat
      sum:=0;
      repeat
         sum:=sum+sqr(tnum mod 10);
         tnum:=tnum div 10;
      until tnum=0;
      tnum:=sum;
    until (sum=1) or (sum=4);
    DecompNum:=sum;
  end;
end;

var
  i, N: integer;
begin
  clrscr;

  write('N = ');
  readln(N);
  writeln('Results:');
  for i:=1 to N do
   if DecompNum(i)=1 then
     write(i,'; ');
  readln;
end.

uses crt;
var
  x, t: real;
  zero: boolean;
  i, mlt: integer;
begin
  clrscr;
  x:=4.222;
  mlt:=10;
  zero:=false;
  for i:=1 to 3 do
  begin
    t:=trunc(x*mlt) mod 10;
    mlt:=mlt*10;
    if t=0 then zero:=true;
  end;

  if zero then write('Zero was found')
  else write('Zero not found');

  readln;
end.

uses crt;
const
  n = 3;
var
  BrickParam: array [1..3] of real; {a, b, c}
  x, y: real;
  i, j: integer;
  compatible: boolean;
begin
  clrscr;
  compatible:=false;

  BrickParam[1]:=2;
  BrickParam[2]:=3;
  BrickParam[3]:=4;
  x:=4;
  y:=2.1;

  for i:=1 to n-1 do
    for j:=i+1 to n do
      if ((BrickParam[i]<=x) and (BrickParam[j]<=y) or
          (BrickParam[i]<=y) and (BrickParam[j]<=x))
        then compatible:=true;

  if compatible then write('Brick is compatible with hole')
  else write('Brick is not compatible with hole');

  readln;
end.

uses crt;

function f(a:real):real;
var
  arg: real;
begin
    arg:=a - round(a/2)*2;
    f:=-sqr(arg)+1;
end;

var
  x: real;
begin
  clrscr;
  x:=-4.0;
  write('f(',x:5:2,') = ',f(x):5:2);
  readln;
end.

uses crt;
var
  k, i, x: integer;
begin
  clrscr;
  write('k = ');
  readln(k);
  if (k mod 2) = 0 then
     x:=trunc((0.9+0.1*(k div 2))*10) mod 10
  else x:=trunc(0.9+0.1*(k div 2));
  write('number is ',x);
  readln;
end.

{$N+}
var x,y,y2,eps:extended;
num:integer;
begin
write('Enter x=');
readln(x);
write('Enter error eps=');
readln(eps);
y:=x/2;
repeat
  y2:=y;
  y:=0.5*(x+y*y);
until abs(y-y2)<eps;
num:=0;
while eps<1 do
begin
  inc(num);
  eps:=eps*10;
end;
writeln('Limit:',y:num+2:num);
readln
end.

uses crt;
var
  x, A, B, dx, sum, max : real;
  i, j, n, m: integer;
begin
  clrscr;
  write('A = ');
  readln(A);
  write('B = ');
  readln(B);
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  dx:=abs((A-B)/9);
  x:=A;
  for i:=1 to 10 do
  begin
    sum:=1;
    for j:=1 to n do
     sum:=sum*1/x;
    sum:=m*sin(sum);
    if i=1 then max:=sum
    else if sum>max then max:=sum;
    writeln('sum[',i,'] = ',sum:5:2);
    x:=x+dx;
  end;
  writeln('max = ',max:5:2);
  readln;
end.

Program PR6;
             USES CRT;
             Const S1='-';
             Var S:string; D,i,K,n,R:integer; c:char;
Begin clrscr;
                 Read(S);
                    For i:=1 to Length(S) do
                           If (S[i]=' ') and (S[i+1]<>' ') then
                                 Begin
                                         K:=i; n:=0;
                                 While
                                 (S[n]=' ') and (S[n+1]<>' ') do
                                        If Length(S) mod 2=0 then
                                              Begin
                                                      D:=Length(S);
                                                      R:=D div 2;
                                                      insert(S1,S,R)
                                              End;
                                  n:=n-1;
                                  End
                     Else read(S);
                     Writeln(S);
               C:READKEY;
End.

Program PR6;
USES CRT;
Const
  S1='-';
Var
  S:string;
  D,i,K,n,R:integer; c:char;
Begin
  clrscr;
  {Read(S);}
  S:='slovo1 and slovo2   a slovo3';

  n:=1;
  K:=0;
  while (i<=Length(S)) do
  begin
    If ((S[i]=' ') and (S[i+1]<>' ')) or (i=Length(S)) then
    Begin
      if (i-1) > n then
      begin
        if i=Length(S) then inc(i);
        if ((i-n) mod 2) = 0 then
        begin
           insert(S1,S,n+((i-n) div 2));
           inc(K);
        end;
      end;

      n:=i+1;
    End;
    inc(i);
  end;
  Writeln(S);
  READKEY;
End.