Дано целое число n(> 0), проверить является ли оно представлением целого двоичного числа

var x,n : integer;

begin

x: = n;

while(n > 0) do

begin

  if( n mod 10 > = 2) then begin

      writeln('не двоичное число');

    break;

    end;

  n : = n div 10;

  end;

  writeln(x);

end.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.