Напишите программу в PascalABC, которая запрашивает у пользователя валютный курс на сегодняшний день, затем имеющуюся у него рублевую сумму и рассчитывает, сколько долларов и евро он может купить.​

а)) число 27 кратне 3 і кратне 9. -
конъюнкция, истина.

б)) 17< 42< 18 - конъюнкция, ложь.

в)) число 2 просте або парне -
дизъюнкция, истина.

г)) АВС є гострокутним, прямокутним або тупокутним. -
дизъюнкция, истина.

д)) діагоналі будь-якого паралелограма перпендикулярні і точкою перетину поділяються навпіл. - конъюнкция, ложь.

е)) 7^2= 49 і (-7)^2=49 - конъюнкция, истина.
є)) 21 ≤ 21: 21 меньше 21 ИЛИ 21 равно 21 - дизъюнкция, истина.
ж)) 21 ≤ 18 21 меньше 18 ИЛИ 21 равно 18 - дизъюнкция, ложь.

Program naconecto;vara,b,c,d:string;BEGINwriteln('a=');writeln('b=');writeln('c=');writeln('d=');readln(a);readln(b);readln(c);readln(d);if (length(a)>length(b)) and (length(a)>length(c)) and (length(a)>length(d)) then  begin    writeln('a uMeeT Makc gJluHy=',length(a));  endelse if (length(b)>length(c)) and (length(a)>length(d)) then  begin    writeln('b uMeeT Makc gJluHy=',length(b));  endelse if (length(c)>length(d)) then  begin    writeln('c uMeeT Makc gJluHy=',length(c));  endelse  begin    writeln('d uMeeT makc gJluHy=',length(d));  end;readln;END.