Запишите код программы с помощью операторов интегрированной программирования для заданного алгоритма на Паскале.

var a:string;

b:integer;

begin

readln(a);

if a='true' then

b:=4

else

if a='false' then

b:=-4;

writeln(b);

end.