Задача на логические выражения

[skooma effect]

Добрый день. Есть такая вот задача:
h = 7x^y˅p >= s + 1.0
p = 64.02 * 10^2
s = 6002
x = true
y = false

Как попытался сделать я:

program pp1;

const
   x = true;
   y = false
var
   s, h, p : real;
begin
     s := 6002;
     p := Exp(ln(64.02) * 100);
     if ( (s + 1.0) >= 1.0 ) then
        h := 7 * Exp(ln(x) * y)
     else
         h := p;
     writeLn('b = ', b);
     writeLn('s = ', s);
end.

Как надо: ?
Особенно интересует выделенное выражение в условии.

[Stilet]

Задача на логические выражения

Точно на логику?
Ану покаж полный текст задачи.

[skooma effect]

вот, но задали задание не мне, поэтому больше ничего сказать/показать не могу.

[Stilet]

А-а-а.

write((h=(7*x)) and y and (p>=(s+0.1)))

Отако како...
Это выраз к твоему шаблону проги. Переменки ты уже ввел - это ответ.

[skooma effect]

Спасибо большое.

[Stilet]

На здоровье.

[skooma effect]

И все-таки...

Ругается, что нельзя инт на булеан умножать. Наверное все-таки что-то с условием.

[Stilet]

Видимо я недосмотрел:

write((h=7) and x and y and (p>=(s+0.1)))

[Sciv]

Господа, а вам не кажется, что там перед иксом не семерка, а знак отрицания? И почему два and, если в конце явный or?

ИМХО так правильно:

h=not x and y or (p>=s+1.0)

Кстати, при заданных условиях h=true; (это чтоб потом не было вопроса, правильно ли работает программа)

[Stilet]

а вам не кажется, что там перед иксом не семерка, а знак отрицания?

А чего он так на 7 похож?