Помогите пожалуйста сделать 3 задания, или хотя бы сколько сможете! Очень надо!…

var a, b, c, r: real; begin read (a, b, c); if (a=0) or (sqr (b)+4*a*c=0) then writeln ('Error') else r: =(b+sqrt (sqr (b)+4*a*c) / (2*a) — a*a*a*c+(1 / b); writeln (r); end. _______ var a, b, p, s: real; begin read (a, b); p: =2*(a+b); s: =a*b; writeln ('p=', p); writeln ('s=', s); end. ________________ var a: integer; begin read (a); if (a < 1000) or (a > 9999) then writeln ('Error') else writeln (a div 1000+a div 100 mod 10=a mod 10+a mod 100 div 10); end.