Var a,b,c,d,S:integer;
begin
readln(d);
S:=0;
a:=7;
b:=3;
c:=a+b;
if c>d then
S:=c-d
else
S:=d-c;
writeln(S);
end.
Для того щоб робити точні виміри і полегшити своє життя
21*24*12=6048 - всего символов.
6048*16=96768 бит.
Ответ: 96768 бит.
Uses crt;
var i,n:integer;
a:array[1..100] of real;
begin
writeln('Сколько чисел в массиве?');
read(n);
writeln('Введите элементы.');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
a[i]:=abs(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
<span>end.</span>