В чем проблема?

[hero_dislike]

program game;
var health, mana, sila, mosh:byte;
healthai, manaai, silaai, moshai:byte;
a:integer;
f1:text;
begin
assign(f1:'hara.txt');
write('Введите по-очереди жизнь, ману, силу, мощь врага и начальные очки победы');
readln(healthai,manaai,silaai,moshai,a);
write('Теперь ожидайте исхода боя');
reset(f1);
read(health,mana,sila,mosh);
if health>healthai then (a+1) else (a-1);
if mana>manaai then (a+1) else (a-1);
if sila>silaai then (a+1) else (a-1);
if sila>silaai then (a+1) else (a-1);
if a>0 then write('Вы победили!') else write('Вы проиграли!');
end.

[Stilet]

В синтаксических ошибках.

assign(f1:'hara.txt');

тут запятая должна быть

then (a+1) else (a-1);

Паскаль по-моему еще так не умеет выражения возвращать (а жаль...)

[Вадим Мошев]

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

program game;
var health, mana, sila, mosh:byte;
healthai, manaai, silaai, moshai:byte;
a:integer;
f1:text;
begin
assign(f1:'hara.txt');
write('Введите по-очереди жизнь, ману, силу, мощь врага и начальные очки победы');
readln(healthai,manaai,silaai,mosha i,a);
write('Теперь ожидайте исхода боя');
reset(f1);
read(health,mana,sila,mosh);
if health>healthai then (a+1) else (a-1);
if mana>manaai then (a+1) else (a-1);
if sila>silaai then (a+1) else (a-1);
if sila>silaai then (a+1) else (a-1);
if a>0 then write('Вы победили!') else write('Вы проиграли!');
end.

В чем проблема?

В коде .

[hero_dislike]

Сообщение от Вадим Мошев

В коде .

ну ты кэп!!

[hero_dislike]

спасибо. Но получается такая фигня:

program game;
var health, mana, sila, mosh:byte;
healthai, manaai, silaai, moshai:byte;
a:integer;
f1:text;
begin
assign(f1,'hara.txt');
write('Введите по-очереди жизнь, ману, силу, мощь врага и начальные очки победы');
readln(healthai,manaai,silaai,moshai,a);
write('Теперь ожидайте исхода боя');
reset(f1);
read(health,mana,sila,mosh);
if health>healthai then (a+1);
if healthai>health then (a-1);
if mana>manaai then (a+1);
if manaai>mana then (a-1);
if sila>silaai then (a+1);
if silaai>sila then(a-1);
if mosh>moshai then (a+1) else (a-1);
if moshai>mosh then (a-1);
if a>0 then write('Вы победили!') else write('Вы проиграли!');
end.

[Serge_Bliznykov]

Вы пост #2 видели? Прочитали? Внимательно?
вторую часть, насчёт того, что такая запись БЕССМЫСЛЕННА

if mana>manaai then (a+1);

вопросы остались?

я абсолютно не понимаю, какую задачу Вы пытаетесь решить своим кодом.
возможно, что Вы пытались написать так:

if health>healthai then a:=a+1;
if healthai>health then a:=a-1;
if mana>manaai then a:=a+1;
if manaai>mana then a:=a-1;

и т.д.

[Вадим Мошев]

Либо же можно заменить все (a+1) на inc(a), И все (a-1) на dec(a)