Pascal abc
<em><u>Проверка</u></em>
-29 13 -23 -20 10 13 -23 -1 30 45
кол-во полож=5<span>
</span>
//PascalABC.NET 3.1
begin
WriteAllText('название файла.txt', ('любимая цитата' + NewLine) * 10);
end.
//
или так на обычном паскале
var i: integer;
begin
assign(output, 'название файла.txt');
rewrite(output);
for i := 1 to 10 do writeln('любимая цитата');
end.
Var x: real;
begin
write('Введите число: ');
readln(x);
writeln(x, ' = |', abs(x), '|');
<span>end.</span>