New

Не могу понять, где тут ошибка ( Программа Pascal ) , :

Не могу понять, где тут ошибка ( Программа Pascal ) , :

  • Program delenie_na_4;
    Var a: integer;
    Begin
    write (4);
    Read (a);
    If a mod 4=0
    then
    write (число , a, делится на 4)
    Else
    write (число , a, не делится на 4);
    End.
  • Var a: integer;
    Begin
    write (Введите число: );
    Readln (a);
    If a mod 4=0 then writeln (число , a, делится на 4)
    Else writeln (число ,a, не делится на 4);
    End.
  • Добавить комментарий