program test1;
var
aa,b,c:integer;
d:boolean;
r:real;
begin
aa:=4*(-7-3);
writeln(aa);
writeln('Ala ma Kota');
writeln('Kot ma Ale');
b:=0;
readln(b);
writeln('Ala Ma Kota');
read(r);
writeln('Kot Ma Ale');
while b<7 do
begin
c:=0;
while c<3 do
begin
write(c);
c:=c+1;
end;
write(b);
b:=b+1;
end;
d:=true;
writeln(d);
readln(d);

if d=false then
begin
writeln('Ala Ma Kota');
write('Kot Ma Ale');
end;
writeln(d);
end.