25 баллов!!!Помогите составить программу в паскале.Введите 3 числа, если первое число положительно, то заменить числа их кубами, если третье число равно нолю, то найти их сумму.Срочно!
Var a, b, c: integer; begin write ('Введите через пробел 3 числа: '); readln (a, b, c); if (a > 0) then begin write (a * a * a, ' '); write (b * b * b, ' '); writeln (c * c * c) end; if (c = 0) then writeln (a + b) end.