решить алгоритм при помощи таблицы, где:
a:=7; b:=8; c:=8;
while a+b<333 do
begin
c:=c+3;
a:=a+c;
b:=b-1;
end;
for c:=1 to 5 do
a:=a-c*2;
write(a);
end.