Uses crt;
const n=7;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
a[i]:=a[i]*0.133;
write(a[i],' ');
end;
end.
Логика простая. 3 пункт, 1 пункт, 5 пункт, 2 пункт, 4 пункт
Должно получиться А1+А2+А3 = А4+А5+А6
Перо опусти
Повтори 5 раз [направо 72 , вперёд 80]
223 бит =0,000027 мегабайт