Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>
Роль источника информации ты можешь играть,например,когда рассказываешь для ученика первого класса что-то новое, для него это является новой информацией,а ты его источник.А роль приёмника,когда узнаешь новую информацию на уроке,получив её от учителя.
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
1) 3%от 100см
100:100*3=3 см подрастает за год
2) 100+3=103 см рост через год