Если на Pascal, то:
program qq;
var a,b:integer;
Begin
Write('Введите значение 1 переменной: ');
Read(a);
Write('Введите значение 2 переменной: ');
Read(b);
Write('Произведение двух переменных ',a,' и ',b,' равно: ',a*b);
End.
Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;
А какие числа то? Так то много можно написать
Количество каналов =2 (стерео)
t=1,5 мин =1,5*60 с = 90 с
Н =36 КГц =36*1000 Гц=9*4*8*125 1/с=9*125*2^5 1/c = 1125*2^5 1/c
F=2 *8*90*1125*2^5 бит=1125*45*2^4*2^5 бит=50625*2^10 бит =
= 6328,125 Кбайт =6,2 Мбайта