Var s : String;
Begin
Readln(s);
If s[1]='<span>а' then Writeln(s);
end.
</span>
Var a, b, c: integer;
begin
read(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)
then write('Есть')
else write('Нет');
end.
Как назовете файл, так он и будет называться. В данном случае имя word_2
В третьей строке программы переменная a примет значение равное 31. Значит a > b и с станет равно 5*31 -20 = 135