Question

Va rog mult ajutaţi ca am lucrare de laborator plz

Answer 1

program labplz;

var
  n: real;

begin
  n := 0;
  while n < 4 do
  begin;
    n := n + 1;
    write(n);
    write(' ');
  end;
  write('...');
  write('2n'' ''2n''+', n - 3);
 
  writeln(' ');
  writeln('.............');
 
  n := 0;
 
  while n < 5 do
  begin;
    n := n + 1;
    write(n);
    write(' ');
  end;
 
  n := 0;
 
  writeln(' ');
  while n < 3 do
  begin;
    n := n + 1;
    write(n);
    write(' ');
  end;
 
  n := 0;
 
  writeln(' ');
  while n < 1 do
  begin;
    n := n + 1;
    write(n);
    write(' ');
  end;
 
 
end.