Алгоритмы, программа Паскаль, информатика 10 класс

Добавил вывод значений, которого нет на блок-схеме

var a,b,c:integer;
begin
a:=1;
b:=2;
c:=1;
while c<4 do begin
b:=a+b;
c:=c+1;
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.