PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=ReadReal3; // общий
Println(c,b,a); // 1
Writeln('D=',b*b-4*a*c) // 2
end.
begin
var s:=SeqFill(5,'Привет'); // общий
s.Println(','); // а)
s.PrintLines // б)
end.