program kviz;
uses crt;
var a,x,c:integer;
begin
x:=0;
writeln( 'Kviz' );
writeln ('zadaj spravnu odpoved');
writeln ('hl. mesto francuzska je: ');
writeln ('1.londyn');
writeln ('2.pariz');
writeln ('3.moskva');
readln (a);
if a=2 then x:=x+1;
writeln;
writeln ('najvatsia rieka je:');
writeln ('1.amazon');
writeln ('2.nil');
writeln ('3.zlta rieka');
readln (a);
if a=1 then x:=x+1;
writeln;
writeln ('najvyssi vrch meria:');
writeln ('1.7645m');
writeln ('2.8488m');
writeln ('3.8848m');
readln (a);
if a=3 then x:=x+1;
writeln;
writeln ('najhlbsie miesto na Zemi je:');
writeln ('1.marianska priekopa');
writeln ('2.filipinska priekopa ');
writeln ('3.portoricka priekopa ');
readln (a);
if a=1 then x:=x+1;
writeln;
writeln ('Bedrich Hrozny rozlustil:');
writeln('1.hieroglyfy');
writeln('2.klinove pismo');
writeln('3.chetitske pismo');
readln (a);
if a=3 then x:=x+1;
writeln;
if x>=4 then writeln('ziskal si ',x,' bodov , tvoje vedomosti su vynikajuce')
else writeln('ziskal si ',x,' bodov, mal by si sa viac ucit');
readln;
end.