Паскаль дано целое число . если оно равно 7 то вывести воскрксенье

Var x:integer;
begin
readln(x);
if x=7 then
writeln("воскрксенье");
end.

var

num: integer;

begin

ReadLn(num);

If num = 7 Then WriteLn("Воскресенье");

end;

var

 a, b, c, d, kol: integer;

begin

   write('Введите четыре числа A, B, C и D через пробел: ');

   readln(a, b, c, d);

   if a mod 2 = 0 then inc(kol);

   if b mod 2 = 0 then inc(kol);

   if c mod 2 = 0 then inc(kol);

   if d mod 2 = 0 then inc(kol);

   if kol >= 2 then writeln('Среди введенных чисел есть два или более четных числа')

     else writeln('Среди введенных чисел менее двух четных');

end.

Объяснение:

Другой вариант (покороче):

var

 a, b, c, d: integer;

begin

   write('Введите четыре числа A, B, C и D через пробел: ');

   readln(a, b, c, d);

   if ((a mod 2) + (b mod 2) + (c mod 2) + (d mod 2)) <= 2

       then writeln('Среди введенных чисел есть два или более четных числа')

       else writeln('Среди введенных чисел менее двух четных');

end.

def check_simple(number:int):

assert number % number == 0 #check number is 'int' class

for i in range(2, number):

 if number % i == 0:

  return 0

return 1

def main():

a,b = input().split()

assert int(a) >= int(b)  #Гарантировано, что a >= b

res = []

for i in range(int(a), int(b)):

 if check_simple(i):

  res.append(i)

if len(res) == 0:

 print(0)

else:

 print(' '.join(str(i) for i in res))

if __name__ == '__main__':

main()

Объяснение:

Скриншот приложен на случай, если сайт поломает табуляции в коде. Программа протестирована