baza2.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program baza2;
var a,b,n:integer;
begin
writeln('a=');
read(a);
repeat
b:=a div 2
until b=0;
n:=a-2*b;
writeln('numarul' ,a, 'scris in baza 2 este' ,n);
end.