очень надо
1. Program Example_1;
Var a, b, rez: Integer;
Begin
Writeln('Введите два числа через пробел');
Readln(a,b);
rez:=a*b;
Writeln ('Их произведение равно ',rez);
End.

2. Измените программу, которая выводит на экран свою фамилию, имя и отчество, в следующей строке - дату рождения.

(Четыре лишние строки удалить, одну добавить, одну изменить)

Сходства                                                                   Различия

оба печатают и выдают готовый            нужны чернила и листы

результат                                                      плоская картина

облегчают работу

                                                                        нужен специальный пластик и                                                                                                                                                          

                                                                         платформа   трехмерная работа            

если то сделайте лучший ответ

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.

Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную

Получается вот так:
21 = 10101
2=10
2002 = 11111010010

В итоге:
10101.10.11111010010