Вычислите значения логических выражений при а=5,б=-5,и распределите их по группам "истина","ложь"​

program ex1;                                          Здесь название программы

var i:real;                                                  вводишь переменные

begin                                                        открываешь тело программы

i:=3

while i<7 do                                                   задаешь цикл 

begin

writeln(i);                                                  вывод числа

i:=i+0.2 ;                                                    задаешь шаг цикла

end;                                                           закрываешь цикл

end.                                                             закрываешь тело программы 

 Var i:integer;

begin

for i:=100 to 999 do if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

end.

{While}

Var i:integer;

begin

 i:=100;

while i<=999 do begin

if( if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' '); inc(i); end;

end.

 {Repeat}

Var i:integer;

 begin

i:=100; 

repeat

begin

 if(i mod 6 =0) and (i mod 4 = 0) and (i mod 10 = 8) then write(i, ' ');

inc(i); end; 

until i<1000;

end.