Выполнить деление 010111:001
Подробно расписать

2)Копіювання аркуша до іншої книги

Виберіть усі дані на аркуші. Сполучення клавіш: натисніть клавіші CTRL + ПРОБІЛ, а потім натисніть клавіші SHIFT + ПРОБІЛ. Скопіюйте всі дані на аркуші, натиснувши сполучення клавіш CTRL + C.

1)Відкрийте книгу, до якої потрібно перемістити аркуш. У меню Window клацніть книгу з аркушем, який потрібно перемістити. Клацніть аркуш, який потрібно копіювати до іншої книги. У меню Edit (Редагування) виберіть Sheet (Аркуш) > Move or Copy Sheet (Переміщення або копіювання аркуша).

1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else  writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
   if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.