В конце думаю сам сможешь дописать
c
|-Мои документы
| |-Доклад.doc
|-Рисунки
|-Природа(подпункта 2)
|-Компьютер(подпункта 1)
<span>var m,p:longint;
i:integer;
begin
writeln ('Введите натуральное число не более 999999999');
repeat
readln(m);
until(m>0)and(m<=999999999);
p:=0;
while m>0 do
begin
i:=m mod 10;
p:=p*10+i;
m:=m div 10;
end;
write(p);
readln
end<span>.</span></span>
1)ААА
2)чакараку
+ символы символы,20 уже есть?норм)
Program n1;
var x: real;
begin
readln(x);
write('S=',x+2*x*x-5*sqr(sqr(x))+8*sqr(sqr(sqr(x))));
end.