1)
program chik;
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 10 do
writeln(i:2,'*',j:2,'=',i*j:2);
<span>end.
</span>2)
program chik2;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 8 do
if(i mod 2=1)and(j mod 2=0)then writeln(i:2,'*',j:2,'=',i*j:2);
end.
1)
var
x,y,s:real;
begin
readln(x,y);
s:=abs(x*y);
writeln(s:8:2);
end.
2)
var
a:integer;
begin
readln(a);
if a mod 2=0 then writeln("четное число")
else writeln("нечетное число")ж
end.