-
peppone14.
User deleted
si č un errore di distrazione, io ho fatto copia e incolla e ho sbagliato a scrivere la lettera, ora pubblico la versione esatta
Program giochino;
USES PRINTER;
var a,c,d,e,f,g,h,i,l,m,b,z:integer;
begin
b:= random(100);
writeln ('hai 10 possibilit…');
writeln ('scrivi un numero');
readln (a);
if b>a then writeln('mira + in alto');
if b<a then writeln('mira + in basso');
if b=a then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (c);
if b>c then writeln('scrivi un numero piu grande');
if b<c then writeln('scrivi un numero piu grande');
if b=c then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (d);
if b>d then writeln('scrivi un numero piu grande');
if b<d then writeln('scrivi un numero piu piccolo');
if b=d then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (e);
if b>e then writeln('scrivi un numero piu grande');
if b<e then writeln('scrivi un numero piu piccolo');
if b=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (f);
if b>f then writeln('scrivi un numero piu grande');
if b<f then writeln('scrivi un numero piu piccolo');
if b=f then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (e);
if b>e then writeln('scrivi un numero piu grande');
if b<e then writeln('scrivi un numero piu piccolo');
if b=e then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (g);
if b>g then writeln('scrivi un numero piu grande');
if b<g then writeln('scrivi un numero piu piccolo');
if b=g then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (h);
if b>h then writeln('scrivi un numero piu grande');
if b<h then writeln('scrivi un numero piu piccolo');
if b=h then writeln (' hai vinto, bravo ');
writeln ('scrivi un numero');
readln (i);
if b>i then writeln('scrivi un numero piu grande');
if b<i then writeln('scrivi un numero piu piccolo');
if b=i then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (l);
if b>l then writeln('scrivi un numero piu grande');
if b<l then writeln('scrivi un numero piu piccolo');
if b=l then writeln (' hai vinto, bravo');
writeln ('scrivi un numero');
readln (m);
if b>m then writeln('scrivi un numero piu grande');
if b<m then writeln('scrivi un numero piu piccolo');
if b=m then writeln (' hai vinto, bravo');
readln;
end..