75 за лучший ! составить программу для следующих : 1)по номеру для недели выводит на экран расписание уроков на этот день 2)определить является ли данное число четным 3)определить число,полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа

');
  End;
End;

End.

Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.

Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.