program kross;
uses crt,graph;
var
gm,gd,i,x,o:integer;
a,b,c,d:string;

begin
gm:=detect;
 initgraph(gm,gd,'c:\users\dimike\desctop\paskal\bgi');
 setbkcolor(0);
 setcolor(5);
 cleardevice;
 settextstyle(0,0,1);
  outtextxy(250,160,'Krossvord po teme:');
  outtextxy(160,180,'kompyuter & programnoe obespe4enie');
  settextstyle(4,0,1);
   outtextxy(340,170,'os Windows');
    settextstyle(0,0,1);
  outtextxy(200,200,'dlya prodolgeniya najmite "enter"');
  outtextxy(20,460,'vipolnil Dmitriy ****');
  readln;
  cleardevice;
  setbkcolor(1);
  setfillstyle(1,2);
  setcolor(14);
  bar(0,150,640,480);
  readln;
    cleardevice;
    setcolor(5);
    setbkcolor(0);

    outtextxy(10,10,'так называют совокупность аппаратных программных');
    outtextxy(10,20,'средств компьютера');
    outtextxy(10,30,'обеспечивающих работу с графикой,звуком,видеоинформацией!?');
{мультимедиа}
    gotoxy(1,3);
    readln(a);
    settextstyle(0,1,1);
    outtextxy(317,240,a);
    readln;
    cleardevice;
     settextstyle(0,0,1);
     outtextxy(10,10,'устройство ввода информации в компьютер??? ');
{микрофон}
     gotoxy(1,3);
    readln(b);
    settextstyle(0,1,1);
    outtextxy(317,240,a);
    settextstyle(0,0,1);
    outtextxy(310,255,b);
     readln;
     cleardevice;
     settextstyle(0,0,1);
     outtextxy(10,10,'универсальное устройство для обработки информации');
{компьютер}
     gotoxy(1,3);
    readln(c);
    settextstyle(0,1,1);
    outtextxy(317,240,a);
    settextstyle(0,0,1);
    outtextxy(310,255,b);
    settextstyle(0,1,1);
    outtextxy(332,229,c);
     readln;
  closegraph;
  end.

.model small
.data
x dw 09
u dw 30
t dw 09
w dw 06
y dw ?
.code
begin:
mov ax,@data
mov ds,ax
mov ax,x
add ax,x
add ax,x
inc ax
sub ax,t
mov ax,bx
add ax,bx
add ax,bx
add ax,u
sub ax,w
mov ax,dx ;это я заношу первую программу в регистр, а далее идет след. программа..я не знаю как ее написать (
____________
тут след. программа.
____________
mov ax,4c00h
int 21h
end begin