Yo no puedo escribir en ruso.
Можно заменить на слово noun
1000/5=200, остаток=0
200/5=40, остаток=0
40/5=8 остаток=0
8/5=1 остаток=3
1/5<1-больше не делим
Ответ записываем в обратном порядке, начиная с последнего
1000=13000(5)
{
Периметр треугольника вычисляется по формуле P = a + b + c
где a, b, c - длины сторон треугольника
}
Program Perimetr;
var P, a,b,c:integer;
Begin
writeln('Введите длины сторон треугольника ');
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
P:= a+b+c;
writeln('Периметр треугольника = ', P);
end.