<html>
<head>
<title>table </title>
</head>
<body>
<table border="1" width="150" height="200"><span>
<tr>
</span><span> <td bgcolor="b5e61d">
</td></span><span>
<td bgcolor="a349a4"></td>
</span><span> <td bgcolor="ed1c24"></td></span><span>
</tr></span><span> </span><span>
<tr>
</span><span> <td bgcolor="3f48cc"></td>
</span><span> <td bgcolor="22b14c"></td>
</span><span> <td bgcolor="ffc90e"></td>
</span><span> </tr></span><span> </span>
<span> </table></span>
</body>
<span></html></span>
<u><em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em></u>
<u><em>// Внимание! Если программа не работает, обновите версию!</em></u>
begin
ReadlnString('->').Println(':');
end.
<u>Пример</u>
-> Компьютер
К:о:м:п:ь:ю:т:е:р
Какие задачи??? Тут нету вложения
Var
s:string;
begin
readln(s);
writeln(length(s));
end.