{ MYSLIM_C.PAS } { Hra s jednoduchym menu. } { } { Author: Unknown } { Datum: 26.11.2010 http://www.trsek.com } program myslim; uses crt; var a,b,c,d,e,r,pokr,u:longint; h1,h2,h3:string; x,w:char; procedure hra; begin clrscr; textcolor(15);writeln('Hrac 1, ako sa volas?'); readln(h1); writeln(''); writeln('Hrac 2, ako sa volas?'); readln(h2); writeln(''); writeln('Hrac 3, ako sa volas?'); readln(h3); writeln(''); writeln('Tato hra nieje tazka. ',h3,' si bude mysliet cele cislo.'); writeln('',h1,' a ',h2,' budu typovat. Koho typ bude blizsie, vyhrava.'); writeln('Cisla budu ciernou farbou.'); writeln(''); writeln('',h3,', napis cislo ktore budu ',h1,' a ',h2,' hadat.'); textcolor(0);readln(r); textcolor(15);writeln('',h1,', typni si, ake cislo si ',h3,' mysli?:'); textcolor(0);readln(a); textcolor(15);writeln('',h2,', aky je tvoj typ?'); textcolor(0);readln(b); c:=r-a; d:=r-b; textcolor(10);if(c