Задача:
Длина Питона из известного советского мультфильма равна 38 попугаев и одно попугайское крылышко. Давайте считать, что крылышко равно 0.2 попугая.
В проход пассажирского железнодорожного вагона можно уложить ровно шесть с половиной Питонов Анфисе сосчитать, сколько попугаев поместится в этот проход.
Попугаи бывают только целые, это важно. Поэтому переменная result должна быть типа int.
Подсказка:
реобразуйте строку snake в число функцией float();
умножьте длину Питонов в попугаях на количество Питонов, помещающихся в вагон;
превратите результат в целое число функцией int().

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

program z_array; uses crt; var a: array[1..100,1..100] of integer; m,n,i,j: byte; sum: integer; begin clrscr; writeln('введите количество строк матрицы'); readln(n); writeln('введите количество столбцов матрицы'); readln(m); writeln('введите элементы матрицы'); for i : = 1 to n dofor j : = 1 to m dobegin write('a[',i,',',j,'] = '); readln(a[i,j]); end; writeln('данная матрица'); writeln; sum : = 0; for i : = 1 to n dobeginfor j : = 1 to m dobegin write(a[i,j]: 5); if (j < i) then sum : = sum + a[i,j]; end; writeln; writeln('искомая сумма = ',sum); readln; end.