Составьте программу, определяющую остаток от деления числа а на число в. (паскаль)

var

a,b,c: real;

begin

read(a,b);

c: =a mod   b;

write(c);

end.

а)характеристика конфеты-сладкая,вкусная,твердая, является пищей. б)характеристика компьютера-электроприбор,много комплектующих, подходит для работы и игры.

program gh;

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

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.