Решить с паскаля. 1.-выбрать наибольшее из двух чисел 2.-найти сумму кубов чисел от 1 до 100 заранее : з

1)
var i, a: integer;
begin
     readln(i, a);
     if (i < a) then writeln(i, ' < ', a)
     else if (i = a) then writeln(i, ' = ', a)
     else writeln(i, ' > ', a);
end.

2)
var i, a: integer;
begin
     for i := 1 to 100 do
          a := a + i*i*i;
     writeln(a);
end.

Удачи тебе :3