NEXT PAGE

program loto;
var a,b,c,d,e,f:integer;
begin
writeln(‘apasa o tasta intre 1 si 49′);
write(‘primul nr ales=’);
readln(a);
write(‘al doilea nr ales=’);
readln(b);
write(‘al treilea nr ales=’);
readln(c);
write(‘al partulea nr ales=’);
readln(d);
write(‘al cincilea nr ales=’);
readln(e);
write(’si al saselea nr ales=’);
readln(f);
if (a=1) and (b=2) and (c=3) and (d=4) and (e=5)and(f=6) then
writeln(‘esti castigator la 6 din 49,ai ales numerele 1,2,3,4,5,6′)
else writeln(‘esti un loozer,Numerele erau la mintea cocosului,Hai ca ti le zic eu …..1,2,3,4,5,6′);
readln;
end.