zadatak19

REPEAT
		brSam:=0;
		brSug:=0;
			WriteLn;
			WriteString('Unesite niz slova, ili . ako je done: ');
		REPEAT
			Read(zn);
			DobarUnos := (zn= '.') OR (('A' <= zn) AND  (zn <= 'Z')) OR (('a' <= zn) OR (zn <= 'z'));
				IF NOT DobarUnos THEN
					WriteLn;
					WriteString('pogresna ulazna vrednost. ');
				END;
		UNTIL DobarUnos;
		IF zn # '.' THEN
			zn:=CAP(zn);
			IF (zn='A') OR (zn='E') OR (zn='I') OR (zn='O') OR (zn='U') THEN
				INC(brSam);
			ELSE
				INC(brSug);
			END;
		END;

		UNTIL zn = '.';

	WriteString('Samoglasnika ima: ');
	WriteCard(brSam,0);
	WriteLn;
	WriteString('Suglasnika ima: ');
	WriteCard(brSug,0);
	WriteLn