Составить программу игры в числа

[dasha93]

Составить программу игры в числа, которая ведет диалог с пользователем по сценарию
1) задумайте число
2) удвойте его прибавьте 4
3) разделите на 2, прибавьте 7
4)умножьте на 8, вычьте 12
5) разделите на 4, вычьте 11
6) сколько получилось.


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

Модератор.

[Alex11223]

Эм...А смысл игры в чем? Программа-то что делать должна?

[dasha93]

программа должна выдать это число на экран. которое загадали.

[Alex11223]

т.е. пользователь ввел число и программа должна выдать число, которое у него было до этих операций? А в чем проблема тогда? Просто в обратном порядке все это проделайте заменяя действия на противоположные т.е. прибавить 11, умножить на 4 и т.д.

[dasha93]

Program z1;
Var a,b:Integer;
Begin
write('Zadumai Chislo');
writeln('Udvoi Ego');
writeln('Pribav 4');
writeln('Razdeli na 2');
writeln('Pribav 7');
writeln('Umnozh na 8');
writeln('Vichti 12');
writeln('Razdeli na 4');
writeln('Vichti 11');
writeln('Skolko Poluchilos?');
read(a);
b:=(((((((a+11)*4)+12) div 8)-7)*2)-4) div 2);
writeln('Vi zadumali chislo - ', b);
end.
выдает ошибку 85. что то связанное с точкой запятой. не пойму где ошибка

[Alex11223]

Баланс скобок нарушен.

[MyLastHit]

ДА-ДА-ДА...Первая скобочка лишняя. Лучше заводить переменные отдельные, вам несколько байт жалко не должно быть.

[dasha93]

все равно пишет 85 ошибку((
из-за чего. блин

[MyLastHit]

Var a,b:real;
Begin
write('Zadumai Chislo');
writeln('Udvoi Ego');
writeln('Pribav 4');
writeln('Razdeli na 2');
writeln('Pribav 7');
writeln('Umnozh na 8');
writeln('Vichti 12');
writeln('Razdeli na 4');
writeln('Vichti 11');
writeln('Skolko Poluchilos?');
readln(a);
b:=a/2-2;
writeln('Vi zadumali chislo - ', b:4:0);
readln;
end.

.......................

[dasha93]

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

Var a,b:real;
Begin
write('Zadumai Chislo');
writeln('Udvoi Ego');
writeln('Pribav 4');
writeln('Razdeli na 2');
writeln('Pribav 7');
writeln('Umnozh na 8');
writeln('Vichti 12');
writeln('Razdeli na 4');
writeln('Vichti 11');
writeln('Skolko Poluchilos?');
readln(a);
b:=a/2-2;
writeln('Vi zadumali chislo - ', b:4:0);
readln;
end.

.......................

спасибо вам огромное. у Вас намного понятней.