Турбо паскаль. Массивы.

[Ksuu]

Помогите пожалуйста. Как исправить? Пишет, что не соответствуют типы

PROGRAM M3;
VAR p,k:byte;
    x:array [1..12] of real;
begin
     p:=1;
     writeln ('massive x');
     for k:=1 to 12 do
         begin
              x[k]:=exp(sqrt(k))-k;
              write (x[k]:8:4);
              if k mod 2=0 then
              p:=p*x[k];
writeln;
end.

[Stilet]

if (k mod 2)=0 then

Угадал?

[Ksuu]

Неа, на 12 строку указывает

[Poma][a]

Ну дык да.. byte умножать на real..

[Serge_Bliznykov]

а исправить - надо переменной p объявить тип real

AR k:byte;
    p : real;
    x:array [1..12] of real;

[Ksuu]

Сообщение от Serge_Bliznykov

а исправить - надо переменной p объявить тип real

AR k:byte;
    p : real;
    x:array [1..12] of real;

Спасибо, все получилось