Вот училка задала на отработку по программированию на паскаль ! решите : ) " дано целое число. определить, является ли оно кратным 5 и 10 "

Uses crt; var a: integer;     begin         clrscr;               readln(a);                   if (a mod  5=0)and(a mod 10=0)then                       writeln('кратное')                   else                         writeln('не кратно');     readkey; end.

михаил - футбол,велоспорт.

николай - теннис, волейбол.

михаил - баскетбол, плавание.

решение: так как михаил не увликаеться  велоспортом, волейболом  и тенисом значет он занимаеться плаванием. тогда получаеться что тенисист - николай и потому как он самый старший то павел будет велосипедистом из этого выходит что волейболистом будет николай.

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.