<span>C:/библиотека /повесть /летопись </span>
Program n1;
var n: real;
begin
write('введите число: ');
readln(n);
if n>0 then writeln(n*n) else writeln(n*n*n);
end.
program m;
uses crt;
var
k,s:real;
i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
k:=i/(i+1);
s:=s+k;
end;
writeln(s:2:2);
readkey;
end.