Даны целые числа a, b, c написать программу определяющую есть ли среди них четные числа если есть вывести true иначевывести false

program pr1; uses crt; var a,b,c: integer; f: boolean; beginclrscr; f: =false; readln(a,b,c); if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f: =true; writeln(f); end.

5< =x< 5 (x> =-5) and (x< 5) при x = 9  (9> =-5) and (9< 5)     да              нет ответ: 9 не  принадлежит  промежутку [-5; 5)при x = 0  (0> =-5) and (0< 5)     да                да ответ: 0 принадлежит  промежутку [-5; 5) при x = -9  (-9> =-5) and (-9< 5)       нет              да ответ: -9 не  принадлежит  промежутку [-5; 5)

//первая var a,b,c: integer; beginread(a,b,c); if a> 0 then a: =a*a else a: =a*a*a*a; if b> 0 then b: =b*b else b: =b*b*b*b; if c> 0 then c: =c*c else c: =c*c*c*c; write(a,' ',b,' ',c); end. //вторая var a,b,c: integer; beginread(a); if(a< 100)or(a> 999)then write('заданное число не трехзначное! '); if (a> 99) and (a< 1000)thenbeginb: =a*a; while a< > 0 dobeginc: =c + a mod 10; a: =a div 10; end; c: =c*c*c; if c=a then write('квадрат равен кубу суммы цифр')else write('квадрат не равен кубу суммы цифр')end; end. //третья var a: integer; beginread(a); if a=1 then write('январь'); if a=2 then write('февраль'); if a=3 then write('март'); if a=4 then write('апрель'); if a=5 then write('май'); if a=6 then write('июнь'); if a=7 then write('июль'); if a=8 then write('август'); if a=9 then write('сентябрь'); if a=10 then write('октябрь'); if a=11 then write('ноябрь'); if a=12 then write('декабрь'); end.