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.
Ну здесь лишнее рак,потому что карась и окунь это рыба
При использовании палитры из 4 цветов для хранения одной точки изображения требуется log(2)4 = 2 бита.
Объем видеопамяти:
640*350*2 бит = 448000 бит = 448000/8 байт = 56000 байт