Що більша роздільна здатність, то зображення. а.темніше
б.більш якісне
в.гірше
г.світліше
д.незмінним залишається
​

Если Вашу программу исправить, это так будет выглядеть:
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

А если написать самостоятельно, я бы сделал так:
var
  a,b,c:real;
begin
  Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
  if (a=b) and (a=c) then
    Writeln('Треугольник равносторонний с периметром ',3*a)
  else Writeln ('Треугольник не равносторонний')
end.

5

Объяснение:

пока S1 < S выполняем действия:

N = N + 1

S1 = S1 + 1 / N

S = 2,13       S1 = 0       N = 0

S1 < S       0 < 2,13       ДА

N = 0 + 1 = 1

S1 = 0 + 1 / 1 = 0 + 1 = 1

S1 < S       1 < 2,13       ДА

N = 1 + 1 = 2

S1 = 1 + 1 / 2 = 1 + 0,5 = 1,5

S1 < S       1,5 < 2,13       ДА

N = 2 + 1 = 3

S1 = 1,5 + 1 / 3 = 1,5 + 0,333 = 1,833

S1 < S       1,833 < 2,13       ДА

N = 3 + 1 = 4

S1 = 1,833 + 1 / 4 = 1,833 + 0,25 = 2,083

S1 < S       2,083 < 2,13       ДА

N = 4 + 1 = 5

S1 = 2,083 + 1 / 5 = 2,083 + 0,2 = 2,283

S1 < S       2,283 < 2,13       НЕТ

S = 2,13       S1 = 2,283       N = 5