Как на паскале перевести числа в обычный вид?

[GidroFobia]

На паскале пишу всего дня 3, написал программу которая будет делить дроби

Program test;
Var a,b,c,d,m,n,s:real;
Begin
writeln('---------------------');
writeln('a/b * c/d');
writeln('---------------------');

write('A=');
 read(a);
write('B=');
 read(b);
write('C=');
 read(c);
write('D=');
 read(d);

m:=a*d;
n:=b*c;
s:=m/n;

writeln('CHISLITEL:',m);
writeln('ZNAMENATEL:',n);

writeln('OTBET:',s);
end.

допишите пожалуйста программу, так, чтобы в ответе выводились нормальные числа, а не такие, как на скриншоте.

[Hacker19_90]

Формат вывода поставить надо
Вот так

writeln('CHISLITEL:',m:5:5);
writeln('ZNAMENATEL:',n:5:5);

writeln('OTBET:',s:5:5);

если формат не подходит, но установлен, паскаль сам поставит нужный!

[GidroFobia]

Hacker19_90, спасибо
------
теперь еще вопрос: когда я ввожу все 4 переменные, нажимаю ENTER и черное окошко закрывается, и приходится еще раз нажимать Ctrl + F9 для того, чтобы посмотреть результат. Это жутко не удобно. Есть ли какой-нибудь кодик, чтобы окошко не закрывалось?

[weech]

В конце программы напиши

readln;

[GidroFobia]

weech, куда именно?

[Hacker19_90]

можно поставить ожидание ввода
можно сделать это двумя путями
#1 Добавить ReadLn

    writeln('CHISLITEL:',m:5:5);
    writeln('ZNAMENATEL:',n:5:5);
    writeln('OTBET:',s:5:5);
    ReadLn
end.

#2 Добавить ReadKey (что иногда лучше)

Program test;
uses
    crt;
.................................................
    writeln('CHISLITEL:',m:5:5);
    writeln('ZNAMENATEL:',n:5:5);
    writeln('OTBET:',s:5:5);
    ReadKey;
end.

[adaptive person]

Weech прав, допиши readln.
-----------------------------------------------------------------------------
И вот на всякий случай паскаль с поддержкой русского языка http://rutor.org/torrent/169526

[ACE Valery]

А зачем задавать вопрос здесь, а потом дублировать его в новую тему?

[GidroFobia]

Hacker19_90, а как сделать чтобы программа запускалась снова?
я использовал вариант 2, всё хорошо, программа всё считает, но есть одно но, она это делает только один раз, после чего закрывается и приходится её еще раз запускать.

и еще, можно ли как-нибудь на задний план добавить картинку?

[GidroFobia]

ACE Valery, извините, такого больше не повторится.
Я просто думал, что новую тему быстрее заметят.