<span>If (a>=10) and (a<=99)
then begin
writeln (a,'-двузначное число');
writeln ('его квадрат=', sqr(a));
end
else (a,' не является двузначным числом');</span>
1) Вычислить
11100101011(2)+1101111101(2)=101010101000(2)
1000001(2)-11111(2)=100010(2)
1437(8)+7465(8)=11124(8)
70000(8)-6453(8)=61325(8)
ABCDF(16)+98765(16)=144444(16)
F000001C(16)-AABBFF(16)=EF55441D(16)
2) Перевести число111111101001010010100011100 из 2-ичной системы счисления в 8-ичную и 16-ичную системы счисления
111 111 101 001 010 010 100 011 100(2) = 775122434(8)
111 1111 0100 1010 0101 0001 1100(2) = 7F4A51C(16)<span>
</span>
Http://mypascal.ru/blog/zapis_v_fajl_i_vyvod_iz_fajla_pascal/2013-06-08-6 посмотри , там все разобрано