Var n,i,s:integer;
Begin
Readln(n);
For i:=1 to n do
If n mod i =0 then
s:=s+i;
If s = n then
Write('верно')
Else
Write('не верно');
Readln
End.
Var
s:string;
begin
readln(s);
writeln(length(s));
readln;
end.
Система.
Точная, операционная.
Управляет, организует, выполняет.
Быстро вычисляет, обрабатывает данные.
Умная.
1.крик
2.барабан
3.интернет
4.почта
5.телефон
6.костёр
7.телевизор
8.радиосвязь
9.морзе
10. приемник