символьная информация

[Ilya_Vydysh]

С клавиатуры посимвольно вводится предложение. Определить, какое это предложение - повествовательное, вопросительное или восклицательное, и вывести соответствующее сообщение на экран. Концом предложения считать следующие знаки препинания: ? ! и .

[Mad_Cat]

var c:char;
begin
readln(c);
While not c in ['.', '!', '?'] do begin
readln(c);
case c of 
'.':writeln('povestv');
'!':writeln('voskl');
'?':writeln('vopr');
end;
end.