#khalid
Var a,b: integer;
c: byte;
begin
write('a=');
read(a);
write('b=');
read(b);
writeln('c=' , a*b);
end.
a=5
b=-3
Savol: c-?