Сколько ячеек содержит выделенная область А3:D7?

var a: integer;

s: string;

begin

  read(a);

  case a of

      1: s: ="i";

      5: s: ="v";

      10: s: ="x";

      50: s: ="c";

      100: s: ="c";

      500: s: ="i";

      1000: s: ="m;

  end;

  writeln(s);

end.

римские соответствия не все помню

16 цветов=4 бита/пиксель

640*250=160000 пикселей — размер изображения

160000*4=640000 бит = 80000 байт.

c=a

a=b

b=c

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.