Var
a[1..10]: array of integer;
i:integer;
Begin
i:=1;
while i<=10 begin
read(a[i]);
i:=i+1;
end;
End.
Клавиша на клавиатуре TAB.
Например ребус
три клетки в неё напиши ГАЛ ( выбери мальчика стукни не сильно и скажи отгадай слово)
ответ : ГАлСТУК
Купить макароны ⇒ Довести воду до кипения ⇒ Бросить макароны в воду ⇒ посолить ⇒ дождаться полной готовки макарон
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords.Reverse; s.Println
end.