Вопрос Что можно сделать на паскале?

[SKELETON]

За урок хочу написать какую нибудь крутую программу за 40 минут, подскажите что можно написать

 

[Darth_Vader]

uses crt;
Var
A,B,C,D,E,T:real;

Begin

textbackground(1);
clrscr;

D:=0;
T:=10;
E:=0;

while E=0 do begin

if E=1 then E:=E-1;

A:=0;
B:=random(10);

if A=-1 then E:=E+1;

while A=0 do begin

clrscr;

textcolor(15);
write(' Угадай число (0-100) : ');
readln(C);

textcolor(13);
if C>100 then begin writeln(' СЛИШКОМ БОЛЬШОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;
if C<0 then begin writeln(' СЛИШКОМ МАЛЕНЬКОЕ ЧИСЛО! ИНТЕРВАЛ: от 0 до 100'); T:=T+1; end;

textcolor(10);
if B>C then writeln(' НЕДОЛЁТ...') else T:=T-1;
if B<C then writeln(' ПЕРЕЛЁТ...') else T:=T-1;

textcolor(10);
if B=C then begin writeln(' УГАДАЛ!'); A:=A-1; end;

if B=C then begin D:=D+1; T:=T+9; end;
if T<=0 then A:=A+1;
if T<=0 then E:=E+1;

textcolor(4);
if T<=0 then writeln(' ПРОИГРАЛ!!!');

textcolor(10);
if B=C then writeln(' +9 жизней');

textcolor(12);
if B>C then writeln(' -1 жизнь');
if B<C then writeln(' -1 жизнь');

textcolor(9);
writeln(' твои очки: ',D);
writeln(' твои жизни: ',T);

textcolor(yellow);
writeln(' нажми ENTER');
readln;

end;
end;

End.

 

[lamercom]

паскальные яйца

 

[ЯПАВЕЛ]

лучше выбери пайтон, он проще, да и паскаль уже устарел. Из программ за 40 минут, можешь написать компилятор, калькулятор и небольшую инди-игру

 

[shinning]

Клавиатура фортепиано. Октава, чтобы можно было сыграть гамму «до-мажор»

 

[gammi]

Калькулятор например, генератор случайных чисел, фонтазия