Размер символов, последовательность символов, параметры страницы, <span>параметры абзаца. (может быть и верно)</span>
Var b:array[1..15] of real;
i:integer;
begin
for i:=1 to 15 do read(b[i]);
writeln;
for i:=1 to 15 do begin b[i]:=-1*b[i]; write (b[i],' '); end;
end.
1 символ - 1 байт
х - 80 байт
х=80*1/1=80 символов
как то так. Я надеюсь в условии 80 - это байт
Var
a,s: integer;
begin
readln(a);
s := 0;
while a >0 do
begin
if a mod 10 mod 2 <> 0 then
inc(s, a mod 10);
a := a div 10;
end;
writeln(s);
<span>end.</span>