//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>
var
x, y: real;
begin
read(x, y);
write((x * x - 7 * x + 6) / abs(y))
end.
Print(125//25 + 10)
print(2*3*4*5//6)
print(765//9+48*4-121)