program xxx; var a, b, c : real; begin write('введите первое число а ='); readln(a); write('ввседите второе число b = '); readln(b); c:= a*b; writeln('произведение =', с); readln end.