Программа, которая осуществляет перевод в двоичную систему на Паскале:

program bin;
var x,y,z:real;c:char;
label m1,m2,m3,m4,m5,m6,m7,m8,m9,m10;
begin
m7:writeln (’Введите число которое нужно перевести в двоичную систему’);
read (x);
m4:x:=x/2;
z:=-0.5;
m3:z:=z+1;
if x=z then goto m1;
if z=1000000.5 then goto m2 else goto m3;
m1:write (1);x:=x-0.5;if x=1 then goto m5 else goto m4;
m2:write (0);if x=1 then goto m5 else goto m4;
m5:writeln (1);
write (’Продолжить (y/n)’);
m9:read (c);
if c=’y’ then goto m7;
if c=’n’ then goto m8 else goto m9;
m8:end.