program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  m=100;  //You can change this mux num of array
  type
    tar=array [1..m] of integer;  //Max elements in this aray is <= m !

  var
  x:tar;
  p,i,n,num:integer;

begin
p:=1;
while (p=1) do
begin
writeln('');
write('Enter num of array elements: ');
readln(num);
write('Enter n: ');
readln(n);
if (n<0) or (n>m) or (num>m) or (num<0) then
writeln('Err1 - array can not be more then ', m, ' elements')
else
begin
write('Enter elements of array: ');
for i:= 1 to num do
read(x[i]);
for i:= num downto n do
x[i]:=x[i-n];
for i:= 1 to n do
x[i]:=0;
for i:= 1 to num do
write(x[i],' ');
writeln('');
write('Do you want to continue? Type 1 to continue and 0 to stop: ');
read(p);
end;
end;

  { TODO -oUser -cConsole Main : Insert code here }
end.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  procedure clrscr;
  begin
  writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln; writeln;
  end;

  const
  m=100;

  type
  tar=array[1..m] of integer;

  var
  t:tar;
  c:byte;
  i:integer;
  x,y:real;
  f:string;

begin
f:='y';
while (f='y') or (f='Y') or (f='yes') or (f='Yes') or (f='YES') do
  begin
  writeln('');
  writeln('=========================================  =======================================');
  writeln('                          WELCOME TO LABWORK 4 ENTERPRISE!                      ');
  writeln('=========================================  =======================================');
  writeln('');
  writeln('Please, make your selection:');
  writeln('   Type 1 to start 1st lab work');
  writeln('   Type 2 to start 2nd lab work');
  writeln('   Type 3 to start 3rd lab work');
  writeln('   Type 4 to exit');
  write('Your case: ');
  read(c);
  if (c<>1) and (c<>2) and (c<>3) and (c<>4) then
  begin
  writeln('Please, enter 1,2,3,4 as your selection!');
  readln;
  end
  else
  writeln('......................nice selection!');
  writeln;
  case c of
  1:
  begin
  i:=0;
  x:=-0.5;
  y:=0;
  for i:= 0 to 20 do
    begin
    x:=x+0.5;
    y:=1/(exp(3*ln(x+1)));
    writeln('x = ',x:0:1,'    y = ',y:0:5);
    end;
  readln;
  end;
  2:
  begin
  i:=0;
  x:=0;
  y:=0;
  write('Enter integer: ');
  readln(x);
  while x>=1 do
    begin
    x:=x/10;
    i:=i+1;
    end;
  for i:= 1 to i do
    if (i mod 2)=0 then
    begin
    y:=y+int(x*10);
    x:=frac(x*10);
    end
    else
    x:=frac(x*10);
    writeln('Sum of even digits is: ',y:0:0);
  end;
  3:
  begin
  i:=0;
  x:=0;
  writeln('Remember, that max num of input elements can not be more than ',m);
  write('Enter quantity of elements: ');
  readln(i);
  for i:= 1 to i do
    begin
    x:=i;
    write(x:0:0,': ');
    readln(t[i]);
    end;
  x:=t[1];
  for i:= 1 to i-1 do
    begin
      if (t[i]>x) and (t[i]<0) then
      x:=t[i]
      else
        if (x>0) and (t[i]<0) then
        x:=t[i];
    end;
  if (x>0) then
  writeln('There is no negative numbers!')
  else
  writeln('Max from negative numbers is ',x:0:0);
  writeln;
  end;
  4:
  f:='n';
  end;
  write('Do you want to continue? (y/n): ');
  read(f);
  clrscr;
  end;
  { TODO -oUser -cConsole Main : Insert code here }
end.