program ContinueDemo;

uses
 Forms;

var
 I: Char;
 Count: Integer;

begin
 I := ' ';
 For Count := 1 to 10 do
 begin
  Write('Wprowad znak: ');
  Readln(I);
  if (I = 'q') or (I = 'Q') then
   Continue;
  Writeln('Instrukcja wykonywana tylko wtedy, gdy znak jest rny od Q');
 end;

 Readln;
end.
