Код программы по блок-схеме (Pascal).

[dangalah]

Пожалуйста, помогите

[newerow1989]

begin
   Readln(a);
   Readln(b);
   Readln(c);
   Readln(d);
   Readln(s1);//не понятно для чего?
   Readln(s2);//не понятно для чего?
   s1:=-c+sqrt(c*c-4*d*a)/2;//если оно здесь изменяется
   s2:=-c-sqrt(c*c-4*d*a)/2;//если оно здесь изменяется
   If (s1>0) and (s2>0) then
      Writeln(s1:5:5,'  ',s2:5:5) else
      If (s1>0) and (2<0){это по картинке!} then
         Writeln(s1:5:5) else
         If (s1<0) and (2>0){это по картинке!} then
            Writeln(s2:5:5) else
            Writeln('Нет решения');
end.

Сойдет?