Урок 11 Задача 8

Урок 11 Задача 8

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Считайте и выведите на экран значения первых трех отрицательных нечетных чисел. После чего завершите цикл.

program u11z8;
var a,b,c:integer;
begin
 a:=1;
 b:=1;
 c:=1;
 while (a > 0) or (a mod 2 = 0) do
 begin
   writeln('vvedite chislo a');
   readln(a);
    if (a < 0) and (a mod 2 <> 0)  then
  end;
     while (b > 0) or (b mod 2 = 0)  do
     begin
      writeln ('vvedite chislo b');
      readln(b);
       if (b < 0) and (b mod 2 <> 0)then
     end;
        while (c > 0) or (c mod 2 = 0) do
        begin
        writeln('vvedite chislo c');
        readln (c);
         if (c < 0) and (c mod 2 <> 0) then
        end;
   writeln('pervie 3 otricatelnii chisla', a,b,c);

  readln();
end.