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

2014-03-03T12:38:40+00:00
Прошу вас.

program by_Relhem;
var
i:integer;
s:string[3];
a,b,c:char;
sravn:boolean;
begin
writeln ('Трёхзначное число: ');
readln (s);
a:=s[1];
b:=s[2];
c:=s[3];
sravn:=(a=b)or(b=c)or(a=c);
if sravn=true then writeln ('Да') else writeln ('Нет');
end.