program n_1;
var S:integer;
begin
S:=(sqr(2)+sqr(4)+sqr(6)+sqr(8)+sqr(10));
writeln(S);
end.
sqr(i) - sqr это возведение числа во вторую степень, а i само число
№6
var
a,b,c:real;
begin
Read(a,b);
if a>=b then begin
c:=a+b;
while c<=36 do c:=c+8;
c:=c+29
end
else begin
c:=2*b+a;
c:=4*c;
c:=c+30;
c:=c/2
end;
Writeln(c)
end.
№7
var
a,b,c:real;
begin
Read(a,b);
if a>b then begin
while a+1>2*b do b:=b+1;
c:=a+2*b; c:=c+127; c:=c-94
end
else begin
c:=2*a+b;
if c<=14 then begin c:=c+137; c:=2*c-89 end
else begin c:=c+127; c:=c-94 end
end;
Writeln(c)
end.
<span>Первый ютер был apple 1,его придумал Стив Джопс,основатель компании эпл</span>
1) Е:\ОЗЁРА\<span>Голомянка.bmp
2) </span>C:\новое\поколение\выбирает\чтение.doc
3) <span>примирение.doc</span>
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.