Ввод логических (boolean, булевых) переменных в Паскаль

[G-leb]

program Yrev2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   x,y,z,v,max,min: integer;   p,q:boolean;

begin
  Write('x='); readln(x);
  Write('y='); readln(y);
  Write('z='); readln(z);
  Write('q='); readln(q);
  Write('p='); readln(p);



         if (p=true) and (q=false) then
            begin
              if (x>0) then
                begin
                  if (y>z) then
                    Max:=y
                  else
                    max:=z;
if (x>Max) then
V:=max
else 
V:=x;
end;
if (y>0)then
begin
if (y>z) then
Max:=y
else 
max:=z;
if (y>=Max) then
V:=max
else 
V:=y;
end;
if (z>0)then
begin
if (y>z) then
max:=y
else 
max:=z;
if (z>=Max) then
V:=max
else 
V:=y;
end;
end
else V:=(x+y+z);
writeln ('v=',v);
Readln;
end.

Write('q='); readln(q);
Write('p='); readln(p); вот тут показЫвает ошибку .. В чем проблема ?


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным бессмысленным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Leshii]

p,q:boolean;

А разве не очевидно?)

Вы логические переменные пытаетесь ввести.
К типу boolean применимы значения True или False, но их можна только присвоить, не ввести !

[Serge_Bliznykov]

Leshii абсолютно прав!

G-leb, Вам же ошибка не просто так выдаётся, там есть текст ошибки.
и он внятно, английским по белому объясняет, что не так.
Вы получаете примерно такую ошибку:

[Pascal Error] Yrev2.dpr(15): E2055 Illegal type in Read/Readln statement

В переводе это звучит так: "Недопустимые типы в операторе Read/Readln"

Причину Вам уже Leshii объяснил.
теперь, про то, как это обойти.
вместо:
readln(q); readln(p);
пишем примерно так:

WriteLn('Vvedite Q (1-True, 0 - False) :'); Readln(v);
if v=1 then q := true else q: false;
{кстати, короче это можно записать так:
       q := v=1; }

WriteLn('Vvedite P (1-True, 0 - False) :'); Readln(v);
p := v=1;