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

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

var a,b,c,m:boolean;beginm:=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.