uses crt,graph;
const
q:array[1..3] of string=('1.SUDA VVODI VOPROS PRO MYLTIMEDIYU','2.Pro MIKROPHONE','3.PRO KOMP');
word:array[1..3] of string=('otvet na perviy vopr('po russki vvodi!','na vtoroy','na tretiy');
var
i,j,x,y,k,driver,mode:integer;
st,path:string;
begin
path:='c:\tp7\bin';
driver:=vga;
mode:=vgahi;
InitGraph(driver,mode,path);
x:=300;
y:=80;
setfillstyle(solidFill,black);
bar(0,0,640,480);
Setfillstyle(solidFill,White);
for i:=1 to 11 do
begin
Bar(x,y,x+10,y+10);
x:=x+12;
end;
x:=300;
for i:=1 to 8 do
begin
bar(x,y,x+10,y+10);
y:=y+12;
end;
x:=360;
y:=8;
for i:=1 to 9 do
begin
bar(x,y,x+10,y+10);
y:=y+12;
end;
x:=0;
y:=300;
for i:=1 to 3 do
begin
OuttextXY(x,y,q[i]);
y:=y+20;
end;
OuttextXY(x,y+10,'vvedi nomer voprosa, a zatem vvedite otvet');
k:=0;
SetFillStyle(SolidLn,black);
SETcOLOR(BLACK);
while k<3 do
begin
GotoXY(1,1);
Bar(0,0,299,299);
readln(i);
readln(st);
if (st=word[i]) then
begin
k:=k+1;
case i of
1:
begin
x:=300;
y:=80;
for j:=1 to length(st) do
begin
OuttextXY(x,y,word[i][j]);
x:=x+12;
end;
end;
2:
begin
x:=300;
y:=80;
for j:=1 to length(st) do
begin
OuttextXY(x,y,word[i][j]);
y:=y+12;
end;
end;
3:
begin
x:=360;
y:=8;
for j:=1 to length(st) do
begin
OuttextXY(x,y,word[i][j]);
y:=y+12;
end;
end;
end;
end;
end;
readln;
closeGraph;
end.