Άσκηση με while την οποία ελέγχει ο χρήστης και την οποία δεν ελέγχει απλά κάνει ένα συγκεκριμένο αριθμό επαναλήψεων με βήμα 2.

program while_and_if;

var

x:integer;

begin

    readln(x);

    while x <> 0 do

      begin

         writeln(2*x);

         readln(x);

      end

    ;

    writeln('Ευχαριστώ Πολύ');

    

    x :=2;

    while x <= 10 do

       begin

          writeln(2*x);

          x := x +2;

       end

    ;

end.