Помогу со вторым,т.к на дискете памяти 1,44 мб,то понадобится преблизите 486 дискетов или 487 дискетов
1) 11221
2) Сместиться на (-2, -1)
3) Сместиться на (-12, 0)
4) (13, -4)
5) 2
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
Составной оператор - это скобки begin...end (в С образных языках для это используются реальные скобки {}) которые позволяют объединить несколько команд под одним оператором
if a > b then begin
с:=1;
d:=2;
end
else begin
c:=3;
d:=4;
end