Question

Дано Целое число. Если она является положительным, то прибавить к нему 59; противном случае не изменять его. Вывести полученное число. Очень надо!!!!

Answer 1

Ответ:

Program SomeNameHere;

Var a: integer;

begin

Write('Введите целое число: ');ReadLn(a);

if a > 0 then WriteLn('Результат: ', a + 59)

else WriteLn('Результат: ', a);

end.