.bas >>>2>>> .pas source

Code:

INPUT t1
INPUT t
INPUT t2
tbb = t1 / 2 + 2 * t
tzb = t2 / 2
IF tbb / tzb = tbb \ tzb THEN PRINT "blago": END
tbu = t1 / 2
IF tbu / tzb = tbu \ tzb THEN
PRINT "ulaz"
ELSE PRINT "pobego"
END IF
END

Code:

program os1okr05;
var
t1,t,t2,tbb,tzb,tbu:real; *trebalo bi tu da bude mozda integer
label kraj;
begin
     readln(t1);
     readln(t);
     readln(t2);

     tbb:=t1/2+2*t;
     tzb:=t2/2;
     if tbb/tzb=(tbb div tbb) then writeln('blago');goto kraj;
     tbu:=t2/2;
     if tbu/tzb=tbu div tzb then
        writeln('ulaz');
     else
         writeln('pobego');
     end
kraj end.

Code:
procedure Osvezi;
  if not FEnabled then Exit;
  Uradi ovo
  Uradi ono
  .
  .
  .
end;

Code:
procedure Osvezi;
  if FEnabled then
  begin
    Uradi ovo
    Uradi ono
    .
    .
    .
  end;
end;