Turbo Pascalban hogyan kell olyan programot csinálni, ami kiírja hogy kijelentő vagy kérdő a mondat? Sürgős!

Egyszerű! Megvan a mondat mint string, ennek megvizsgáljuk a hosszát (length függvény) és a "hosszadik", theát utolsó karaktert vizsgáljuk.

Itt van amit én csináltam (több típus)

case mondat[length(mondat)] of

'.' : mondattipus:='kijelentő';

'?' : mondattipus:='kérdő';

'!' : mondattipus:='felkiáltó/óhajt˘';

else mondattipus:='ismeretlen';

end;