Составьте не менее трех вариантов программы определения наименьшего из трех данных

var

  a, b, c, m : integer;

begin

  read (a, b, c);

  m : = a;

  if b < m then m : = b;

  if c < m then m : = c;

  writeln (m);

end.

var

  a : array [1..3] of integer;

  i, m : integer;

begin

  m : = a[1];

  for i : = 2 to 3 do

    if a[i] < m then m : = a[i];

  writeln (m);

end.

var

  a, b, c : integer;

begin

  read (a, b, c);

  if (a < = b) and (a < = c) then writeln (a)

  else if (b < = c) and (b < = a)   then writeln (b)

  else writeln (c);

end.

клавиши переключения регистров caps lock, shift, ctrl, alt.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

ps а вообще, каждое нужно писать отдельно