УМОЛЯЮ !! НУЖНО НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ Користувач вводить чотири цілих числа. Перевірити і вивести на екран повідомлення про те, які з введених чисел входять до діапазону 10… 90 і одночасно є кратними числу 3. Знайти та вивести на екран суму цих чисел.
// Внимание! Если программа не работает, обновите версию!
a)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
if b>a then Writeln('Второе число больше первого')
else Writeln('Числа равны')
end.
b)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
if b<a then Writeln('Второе число меньше первого')
else Writeln('Числа равны')
end.