Запиши код программы

Question

Запиши код программы

---

Answer 1

На Паскале:

var a,b:integer;

begin

writeln('Введите значение a: ');

readln(a);

if a=8 then

writeln('b = ',a-4)

else

writeln('b = ',a+4);

end.

Answer 2

///PASCAL ABC.NET

program zadacha;

Var a,b:real;

begin

WriteLn('Введите значение a:');

ReadLn(a);

If a=8 then b:=a+4

else b:=a-4;

WriteLn('b=',b);

end.