Завдання:Ввести прізвище, ім'я,по батькові як одне дане строкового типу.
1)Чи починається хоча б одне слово з букви 'М'??
Будь-ласка Pasccal

var a,b,c,m:boolean;
begin
m:=m;
readln(m);
writeln('vvedit prizvishe');
readln(a);
writeln('vvedit imia');
readln(b);
writeln('vvedit pobatkovi');
readln(c);
If ((a=m) or (b=m)) or (c=m); then writeln('Yes')
Else writeln('no');
end.

а можеш a,b,c в одну сменую S и так зделать ?