uses crt;
var k: char;
begin
repeat
textcolor(0);
clrscr;
writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');
readln(k);
clrscr;
case k of
'1': begin
textcolor(2);
write('красный');
readln
end;
'2': begin
textcolor(14);
write('желтый');
readln
end;
'3': begin
textcolor(12);
write('зеленый');
readln
end;
else exit;
end;
until not(k in ['1'..'3']);
end.
вроде так
объяснение:
1) 2 нуля
2)303 и с3
3)106
8)а=-15
9)а=15
10)s=4
11)s=3
(сорян, но на 4,5,6,7 я не знаю ответы)