Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста:
Program delenie_na_4;
Var a: integer;
Begin
write (4);
Read (a);
If 16 mod 4=0 then
write (число; 16, делится на 4)
Else
write (число,16, не делится на 4)
End

Ответ оставил Гость

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.