Дано: а10=49 и в10=7. вычислить р=а*в, с=а/в. результаты представить в прямом коде.

Если я правильно понял задачу:
program qwer;
uses crt;
var a, b, c, p : real;
Begin
  a := 49 / 10;
  b := 7 /10;
  p := a * b;
  c := a / b;
  write(p,' ',c);
End.