gal kas galetu padėti ,kad šitoje programoje perasius rezultatas butu : keturiu vienodu dydziu , skirtingu spalvu staciakampiai visiskai uzdengiantys ekrana
as visaip meginau perasyt ,bet nieko nesigauna as dar zalias visame sitame dalyke ir reike iki rytojau ir nzn ka daryti
program Noname2;
uses crt;
var x,y:integer;
begin
textbackground(0);
clrscr;
textbackground(15);
FOR y:=1 to 24 do
begin
for x:=1 to 12 do
begin
gotoxy( x,y);
writeln(' ');
delay(55);
end;
end;
gotoxy(1,1);
textbackground(15);
for x:=1 to 4 do
begin
textcolor(x);
for y:=1 to 5 do
begin
end;
writeln;
delay(555);
end;
readln;
end.
