Var s: string;
begin
read(s);
if (pos('<<,_>>', s) = 0) then
writeln('<<,_>> не встречается в заданной строке')
else
writeln('<<,_>> встречается в заданной строке');
end.
Const Tc: array[1..5] of integer=(-5, -3, 1, 11, 19);
var i:integer;
begin
writeln(' Tc Tk');
for i:=1 to 5 do writeln(Tc[i]:2,' ',Tc[i]-273:5);
end.
Результат:
<span> Tc Tk
-5 -278
-3 -276
1 -272
11 -262
19 -254</span>