25 баллов!!!Помогите составить программу в паскале.Введите 3 числа, если первое число положительно, то заменить числа их кубами, если третье число равно нолю, то найти их сумму.Срочно!

var a, b, c: integer;beginwrite ('Введите через пробел 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.