Question

Дана программа на языке Паскаль:
Дано целое число. Если оно является положительным, то прибавить к нему 4; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 34. Вывести полученное число.

program Familia;
var
a: integer;
begin
writeln('Введи число a');
readln(a);

if a > 0 then ;

if a< 0 then ;

if a=0 then ;
writeln(a);
end.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!

Answer 1

program Familia;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > 0 then

 a := a + 4;

if a< 0 then  

  a := a - 6;

if a=0 then

  a := 34;

writeln(a);

end.