Program z26;
  Var a:integer; b, c:real;
Begin
  write('Введите стоимость 1-го яблока - '); readln(a);
  write('Введите кол-во яблоу - '); readln(b);
  c:=a * b;
  writeln('Сумма покупки - ',c);
  
End.