Ответ:
a = 8
b = 5
c = 1
Объяснение:
program HelloWorld;
var a,b,c : Integer;
begin
a := 8; b:=5; c:=-1;
if a - b > 5 then
begin
if c > b then c:= c - b;
end else if (c < b) AND (c > b) then
begin
if c > b-a then c := c + 3
end else c := c + 2;
writeln('a = ', a);
writeln('b = ', b);
writeln('c = ', c);
end.