1) одновременная работа со звуком, анимацией, видео, статичными объектами
var
x,y,z: integer;
begin
x:=5;
y:=-6;
if x>y then
writeln('z = ',x+y)
else
writeln('z = ',y-x);
end.
===== PascalABc.NET ======
for var i := 0 to 10 do
Writeln(i:2, 3*i*i-4*i+2:6)