Программа запрашивает двухразрядное число, если оно чётное и больше 50, то отобразить слово «Весна», иначе "Oсень". *20 поинтов ​

var

a: real;

begin

Write(‘Введите двухразрядное число>>’);

Readln(a);

while (a<10) or (a>99) do

begin

Write(‘Введите двухразрядное число>>’);

Readln(a);

end;

if (a mod 2 = 0) and (a>50) then

Write(‘Весна’)

else

Write(‘Осень’);

end.

Объяснение:

while (a<10) or (a>99) do

begin

Write(‘Введите двухразрядное число>>’);

Readln(a);

end; — это нужно, чтобы ввели именно двузначное число