4.

var a,b,c: integer;

begin

write ('Введите два угла треугольника: ');

readln (a,b);

if a+b >= 180 then writeln ('Треугольник с такими углами не существует')

else

begin

c:=180-a-b;

writeln ('Третий угол равен ',c)

end

end.

6.

var i,n,s:integer;

begin

s:=0;

write ('n = ');

readln (n);

for i:=1 to n do s:=s+i*i;

writeln('Сумма: ',s)

end.