Witam.
Zacząłem pisać projekt programu do zmiany liczb z systemu dziesiętnego na dwójkowy.
Uses crt;
Var
a,b,:integer;
Label kotwica;
begin
clrscr;
writeln('Podaj liczbe w systemie dziesietnym');
a:=0;
b:=2;
read(a);
repeat
a:=a/b;
if (a mod 2)=5 then
begin
write('1');
end;
if (a mod 2)=0 then write('0');
until a=1;
readln;
readln;
end.
Mój problem polega na tym , że kompilator wyrzuca błąd got Extended expected ShortInt przy linijce a:=a/b; Próbowałem już różnych rodzaji zmiennych i przy żadnym nie mogę podzielić. W czym jest problem ?