Помогите, пожалуйста, написать программу на Паскале.
Дана строка. Верно ли, что второе слово начинается на ту же букву, которой заканчивается третье слово?

Var 
s1,s2: string; 
begin 
Write( s1: ); 
ReadLn(s1); 
Write( s2: ); 
ReadLn(s2); 
if s1[ 1 ] = s2[ length(s2) ] then 
write( Da ) else write( Net ); 
ReadLn; 
end. 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.