Question

выяснить, является ли число Y кратным
3 и больше 50? Если условие выполняется, то вывести да, иначе нет
Program
VAR __: real;
Begin
Weiteln (‘введите число х’);
Reagln (__);
If __ And (Y mod 3=0) then writeln (‘___’) Else writeln (‘____’);
End.