Оперaционки:Windows(7,8,10,xp),Linux,Android,IOS.
Характеристики:они бывают разные,зависит от цены.
Program rec;
uses graphabc;
var x:integer = 1280;
y:integer = 720;
y2:integer = 1;
y3:integer = 15;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
Rectangle(x div 2,y2,x div 2 + 10, y3);
while(y3<710) do
begin
y2+=1;
y3+=1;
Rectangle(x div 2,y2,x div 2 + 10, y3);
FillRectangle(x div 2 -1,y2-3,x div 2 + 11, y2-1);
sleep(50);
end;
end.
Uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.