Паскаль пишет что " операция = не пременима к типам real и string".Что делать ? program wasd;
var a, b:real;
begin
writeln('крутите барабан >>>> ');
readln(a);
if a=('крутить') then
b:= random(50);
if (b=25) then
writenl('вы выйграли автомобиль')
else
writeln('вы проиграли квартиру');
end.

У тебя переменная a имеет тип "real" (вещественное число), но в if'e ты пытаешься сравнить вещественное число и строку, чего делать нельзя.

Чтобы решить проблему достаточно изменить тип переменной a на string

Тогда раздел описания будет выглядеть так:

var

b: real;

a : string;

Также у тебя неверно написан оператор writeln в 9 строке.

writeln('вы выиграли автомобиль')