Помогите по блок-схеме составить программу.

//PascalABC.Net 3.1.0.1200
var
    a, b, c, d, x, y: real;

begin
    readln(a, b, c, d);
    if a * b gt;= c * d then
        if a * b gt;= 0 then
            x := sqrt(a * b)
        else begin
            writeln(Корня нет);
            exit;
        end
    else x := c * Power(d, 1 / 3);
    
    if x lt; 1 then
        if a gt; 0 then
            y := ln(a) + c * x
        else begin
            writeln(Логарифм не существует);
            exit;
        end
    else
    if a gt;= 3 then
        y := c - a * x
    else
        y := b + d / x;
    
    writeln(x, , y);
end.