Program Kolobok;
var zver:string;
begin
writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
writeln('Kolobok katitsya, a navstrechu yemu zver');
writeln('Vvod zverya');
readln(zver);
if Zver = 'lisa' then
begin
writeln('Kolobok poyot pesenku dva raza');
writeln('Proshchay, Kolobok ...');
end
else
begin
writeln('Kolobok poyot pesenku');
writeln('Katitsya dalshe');
end;
end.
Sub mm()
M = Cells(2, 7)
N = Cells(2, 15)
For i = 1 To N
For J = 1 To M
Cells(J + 3, i) = "'*"
Next J
Next i
<span>End Sub</span>
Ответ: 11,12,13,14,15,16,17