Schematy blokowe i zadania

Zadanie 1. Napisz program w Pascalu wyświetlający 
liczby parzyste od 1 do 20.

 Schemat blokowy 1

program p01;
uses crt;
var n,lp:byte;
begin
   clrscr;
   writeln('Program wypisuje liczby parzyste od 1 do 20.');
   n:=1;lp:=2;
   while lp<20 do
   begin
    lp:=2*n;
    writeln(lp);
    n:=n+1;
   end;
   readkey;
end.

Zadanie 2. Napisz program wypisujacy elementy ciągu,
którego kolejne wyrazy są zmiejszone o 7. 
Pierwszy element ciągu wynosi 250.
 Schemat blokowy 2



program p02;
uses crt;
const r=7;
var an,n:byte;
begin
  clrscr;
  writeln('Program wypisuje elementy ciagu.');
  an:=250;
  for n:=1 to 30 do
  begin
    writeln(n,' ',an);
    an:=an-r;
  end;
  readkey;
end.