Задача 1 Урок 10

Задача 1 Урок 10:

Пользователь вводит число, определите делится ли оно на 4

var a:integer;
begin
  writeln('vvedite chislo a');
  readln(a);
  if ((a mod 4) = 0) 
    writeln('delitca bez ostatka')
  else 
    writeln('ne delitca' );
  readln();
end.       
vedro-compota's picture

засчитано

_____________
матфак вгу и остальная классика =)