Даны два предложения разделённые точкой . вывести первое предложение

1
язык
нет информатика , Паскаль
А я думал философия. На паскале не буду писать, прости
да ничего

Ответы и объяснения

2013-11-20T14:23:53+00:00
Держи.

var
s: string;

begin
writeln('Введите строку: ');
readln(s);
writeln('Первое предложение: ',Copy(s,1,pos('.',s)-1));
end.