Var n,s,i:integer;
begin
write('Введите число: ');
Readln(n);
s:=0;
for i:=1 to n do s:=s+i;
Writeln('s=',s);
<span>end.</span>
var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>
1) Правая кнопка мыши на рабочем столе - Создать - Документ Microsoft Office Word
2) Пуск - Все программы - Microsoft Office - Microsoft Office Word
Var
x:real;
Begin
Write('x = ');
ReadLn(x);
Write('f(',x,') = ',4*Cos(2*x)*Sin(2*x)-7.1*x*x*x+sqrt(x))
End.