История автомобильного завода ЗиЛ.
Описание какой-нибудь области.
Первый полёт в космос.
Белым снегом замело
Луг и лес кругом.
И, затихнув, речка стала, <span>Скованная льдом.</span>Наступили холода.
Обернулась в лед вода.
Длинноухий зайка серый
Обернулся зайкой белым.
Перестал медведь реветь:
В спячку впал
В бору медведь.
Кто скажет, кто знает, <span>Когда это бывает?
</span><span>Хоть сама
- И снег, и лёд,
а уходит слёзы льёт.
</span>После осени пришла.
И сугробы намела.
<span>Я тепла не потерплю:
Закручу метели,
Все поляны побелю,
Разукрашу ели,
Замету снежком дома,
Потому что я ...
</span><span>Блеснул мороз. И рады мы
Проказам матушки ...
</span>
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if a[i]<0 then a[i]:=abs(a[i]);
end;
for i:=1 to 10 do
writeln(a[i]);
end.
Блок-схемы на скриншотах.