// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Print(Range(1,25).Sum)
end.
<u><em>Результат:</em></u>
325
Пример в Excel 2003
Ярлычки листов соответствуют № задания
<span>1 <span>for i:=1 to 10 do
2 begin
3 x[i]:= random(0)-2;
4 write(x[i]:1);
5 end;</span></span>
Потому что архивторы работают не со всеми типами файлов
//PascalABC
7)а) if (x > y) then z := x + y
else z := y - x;
б)при x = 5 и y = -6 (x > y)
z = x + y = -1
8) if (num1 < num2) then num1 := num1 + num2
else num1 := num1 - num2;