Var n:integer;
begin
writeln('Введите n');
readln(n);
writeln((2+2*(n-1))*n/2);
end.
<span>var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end<span>.</span></span>
700.000÷5600 = 125 книг
700 МБ = 700.000 кбайт
Program denuski;
var
a,N,c:integer;
begin
c:=1;
Write('Введите номер дня рождения ');
read(N);
for a:=2 to N do
c:=(c*2)+a;
write('Cумма подаренная на ');
write(N);
write(' день рождения ');
writeln(c,'$');
end.