задача выдает ошибку

[AET]

program Stul;
var a,b:integer; D1,D2:text;  c,i:integer;
begin
Assign (D1,'A.in');
Assign (D2,'A.out');
Reset(D1);
Rewrite(D2);
a:=0;
Readln(D1,b);
c:=2;
if (b mod 2) = 0 then a:= b /c; else a:= (b+1)/c
Writeln(D2,a);
Close (D1);
Close (D2);
end.

ведает ошибку

[Slym]

так и говорит: програма ни работаит патамуштама ашипкама...
па сабжу в условии ; переставь

[AET]

если поставить тип Real то mod не работает

[Slym]

real можно поставить только для a

[vokar97]

Сообщение от AET

если поставить тип Real то mod не работает

А при чем здесь это?
У вас ошибка при деление... "/" для REAL, а для INTEGER "div".
Вот что должно получится:

var a, b : integer;
    D1,D2 : text;
    c, i : integer;
begin
  Assign (D1,'A.in'); Reset(D1);
  Assign (D2,'A.out'); Rewrite(D2);
  a:=0; c:=2;
  Readln(D1, b);
  if (b mod 2=0)
     then a:=(b div c)
     else a:=(b+1) div c;
  Writeln(D2, a);
  Close(D1); Close(D2);
end.