Дано число Определить является ли оно кратным 5, оканчивается ли оно цифрой 7

Дано число Определить является ли оно кратным 5, оканчивается ли оно цифрой 7

  • var x:integer;

    begin

    readln(x);

    if x mod 5=0 then writeln(kratno 5) else writeln(ne kratno 5);

    if x mod 10=7 then writeln(konchaetsya na 7) else writeln(ne konchaetsya na 7);

    end.

  • if a mod 5 =0

    then writeln (число делится на 5)

    if a mod 7 =0

    then writeln (число делится на 7)

    а — число, писал только тело программы