Блок схему нарисуйте буду благодарен
program df;

const
a = 2.0;
var
x, y: real;
Count: integer;
begin
Count := 0;
x := -5;
repeat
y := a * (x + 1);
if y < 10 then
Inc(Count);
writeln('x=', x: 6: 2, ' y=', y: 6: 2);
x := x + 1.0;
until x > 15;
writeln('y<10: ', Count);

end.