Var
A,B:real;
Begin
Write('Первое число: ');
ReadLn(A);
Write('Второе число: ');
ReadLn(B);
A:=A*B;
Write('Третье число: ');
ReadLn(B);
A:=A*B;
WriteLn('Произведение данных чисел: ',A);
End.
Сверху в меню: Вставка -> Фигуры -> Линия(вверху должна быть). И делаете себе линию какую хотите :)
Прикрепляю решение повторно, надеюсь у модераторов больше не возникнет вопросов...