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.
