Определить координаты вершины параболы y=ax^2+bx+c по заданным значениям параметров a, b,c. нужно составить блок-схему

Есть код и ПАСКАЛЯ, нужна блок-схема. помогите

Uses crt;

var

a,b,c:integer;

x,y:real;

begin

clrscr;

write('vvedite a=');

readln(a);

write('vvedite b=');

readln(b);

write('vvedite c=');

readln(c);

x:=-b/(2*a);

y:=a*x*x+b*x+c;

write('(',x,',',y,')');

readkey;

end.