program test01;
uses crt;
var dobry, suma, i, a:integer;
begin
clrscr;
i:=0; dobry:=0; suma:=0; a:=0;
writeln ('To program test');
writeln;
writeln ('Jak jest po angielsku: zolty?');
writeln ('1-black');
writeln ('2-yelow');
writeln ('3-yellow');
writeln ('4-white');
readln (a);
case a of
1:begin
writeln ('Zle! Zolty po angielsku to yellow');
suma:=suma+1;
end;
2:begin
writeln ('Zle! Zolty po angielsku to yellow');
suma:=suma+1;
end;
3:begin
writeln ('Dobrze! Zolty po angielsku to yellow');
suma:=suma+1;
dobry:=dobry+1;
end;
4:begin
writeln ('Zle! Zolty po angielsku to yellow');
suma:=suma+1;
end;
else
begin
writeln ('Zle! Zolty po angielsku to yellow');
suma:=suma+1;
end;
end;
writeln;
writeln ('Jak jest po angielsku: czarny?');
writeln ('1-black');
writeln ('2-yelow');
writeln ('3-blak');
writeln ('4-white');
readln (a);
case a of
1:begin
writeln ('Dobrze! Czarny po angielsku to black');
suma:=suma+1;
dobry:=dobry+1;
end;
2:begin
writeln ('Zle! Czarny po angielsku to black');
suma:=suma+1;
end;
3:begin
writeln ('Zle! Czarny po angielsku to black');
suma:=suma+1;
end;
4:begin
writeln ('Zle! Czarny po angielsku to black');
suma:=suma+1;
end;
else
begin
writeln ('Zle! Czarny po angielsku to black');
suma:=suma+1;
end;
end;
writeln;
writeln ('Jak jest po angielsku: czerwony?');
writeln ('1-redd');
writeln ('2-yellow');
writeln ('3-red');
writeln ('4-white');
readln (a);
case a of
1:begin
writeln ('Zle! Czerwony po angielsku to red');
suma:=suma+1;
end;
2:begin
writeln ('Zle! Czerwony po angielsku to red');
suma:=suma+1;
end;
3:begin
writeln ('Dobrze! Czerwony po angielsku to red');
suma:=suma+1;
dobry:=dobry+1;
end;
4:begin
writeln ('Zle! Czerwony po angielsku to red');
suma:=suma+1;
end;
else
begin
writeln ('Zle! Czerwony po angielsku to red');
suma:=suma+1;
end;
end;
Writeln ('Dobrych odpowiedzi jest ', dobry,' na ogolna liczbe ',suma);
readln;
end.