1)
Program a;
const
a:=3;
b:=7;
begin
b:=9+a*b;
a:=b/5*a;
writeln('вивидим значение а', а) ;
end.
2) она полностю готова ☝ у вопросе.
3)
Program
var
a: integer;
readln(a) ;
if a=5 then
b:=1;
else
b:=0;
Writeln(b);