Пожалуйста, помогите составить программу в TURBO PACKAL

  • Program DZ;
    Var a,b,c,max : integer;
    Begin
    Writeln(«Введите число а»);
    Readln(a);
    Writeln(«Введите число b»);
    Readln(b);
    Writeln(«Введите число c»);
    Readln(c);
    if a .> 0 and b > 0 and c > 0 then
    BegiN
    if a > b and a > c then
    Writeln(«Максимальное a», a)
    Else b > a and b > c then
    Writeln(«Максимальное b» , b)
    Else c > a and c > b then
    Writeln(«Максимальное с» , c);
    ELSE 
    a < 0 and b < 0 and c < 0 then 
    Max := a + b +c;
    Writeln(«Из отрицательных сумма ровна =» , max);
    End;
    End.

    P.s если я тебя правильно понял , то вот это 100 % правильно