1. в римской системе счисления записать -2020, дату рождения 2. записать в развернутой форме 10826, 1732486,10732,810

uses crt; var

  v,r,h: real; begin  write('r='); readln(r);   write('h='); readln(h);   v: =pi*sqr(r)*h;   write('v=',v); end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

пусть на корабле икс кошек, тогда четырнадцать минус икс и умноженное на два равно количеству ног людей (не считая капитана), а икс умноженное на четыре равно количеству лап у кошек. сумма лап и ног равна сорока(капитан одноног), отсюда находим, что икс равен шести.

program chislo;

var x: integer;

          z,y : real;

begin

readln(x);

y: =5.5;

z: = x-y;

writeln(z);

end.

при запуске программы вводите эти значения и тестируете.