Program C1;
Uses CRT;
Const
      MAX = 32;
Var a: Array[1..MAX] of Integer;
     i: Byte;
     c: Char;

Procedure AddNew(var i: Byte);
Begin
inc(i);
if (i >= MAX) then Exit;
Write('Enter the number: '); Readln(a[i]);
End;

Procedure PrintArray;
Var j: Byte;
Begin
ClrScr;
For j:=1 to i do
     Begin
     Write(a[j]:4);
     End;
Writeln(#13#10);
End;

Procedure DeleteNum;
Var j: Byte;
     f: Boolean;
Begin
f := false;
For j := 1 to i do
     if (a[j] = 1) then
        Begin
        f := true;
        Break;
        End;
if (not f) then
    Begin
    Writeln('"1" not found');
    Exit;
    End;
For j := 1 to i do
     If (a[j] <> 1) then a[j] := 0 else Exit;
End;

Begin
i := 0;
Repeat
PrintArray;
Writeln('[1] Enter new number');
Writeln('[2] Delete all numbers before first "1"');
Writeln('[ESC] Exit');
c := ReadKey;
Case c of
'1': AddNew(i);
'2': DeleteNum;
End;
Until c = #27;
End.

Program Num2;
Uses CRT;
Var a, b: Real;
     h: Real;
     x, y: Real;

Function F(x: Real):Real;
Begin
F := 2 * sin(x) * sin(x) + 1;
End;

Begin
ClrScr;
Write('Enter [A]: '); Readln(a);
Write('Enter [B]: '); Readln(b);
Write('Enter [H]: '); Readln(h);
if (((a > b) and (h > 0)) or
    ((a < b) and (h < 0))) then
        Begin
        Writeln('WRONG DIAPAZON');
        ReadKey;
        Exit;
        End;
x := a;
Repeat
Writeln(x:4:4,' -> ',F(x):4:4);
x := x + h;
Until (((x > b) and (h > 0)) or ((x < b) and (h < 0)));
ReadKey;

End.