Procedury poprvé

Jeden z předchozích programů je rozkrájen na procedury. 
Vlastní program je pak šokézně krátký a přehledný.

cvičení: Upravte tento program tak, aby i z řádků psaných kurzívou byla procedura!

program zkouseni;
uses crt;
var a,i,q,w,e,r,klavesa: integer;

procedure dotazy;

begin

  writeln ('od jakeho cisla');

  readln (q);

  writeln ('do ktereho');

  readln (w);

end;

procedure cykl_for;

begin

  clrscr;

  e:=w-q;

  r:=q;

     writeln ('metoda for');

     for i:=1 to e+1  do

          write (r+i-1,' ');

     writeln (' ');

 end;

 procedure cykl_repeat;

 begin

     writeln ('________________________________________________');

     writeln (' ');

     writeln ('metoda repeat');

     a:=q;

     repeat

         write (a,' ');

         a:=a+1;

     until a>w;

     writeln (' ');

 end;

 procedure cykl_while;

 begin

     writeln ('________________________________________________');

     writeln (' ');

     writeln ('metoda while');

     a:=0;

     while q<=w do

        begin

          write (q,' ');

         q:=q+1;

        end;

     writeln (' ');

  end;

  begin

   repeat

     dotazy;

     cykl_for;

     cykl_repeat;

     cykl_while;

     writeln ('________________________________________________');

     writeln (' ');

     writeln ('stiskni 1, pro opakovani, jinak nulu a program skonci');

     readln (klavesa);

   until klavesa<>1;

 end.