Рис расфасован в два пакета.Вес первого m кг, второго-n кг. Определить какой пакет тяжелее-первый или второй и перевести вес этого пакета в граммы ,если он окажется меньше 15 кг — Pascal(Паскаль)

Пересчет веса из килограммов в граммы.
ВВедите вес первого пакета m(кг): 5
ВВедите вес второго пакета n(кг): 8

Ответ:8000 гр.


Повторите запуск программы ,используя другие исходные данные:
m=15,n=25 {ответ: 25 кг}

uses crt;
var m,n:real;
begin
ClrScr;
Writeln('Vvedite ves 1-ogo: ');
Readln(m);
Writeln('Vvedite ves 2-ogo: ');
Readln(n);
if (m>n) and (m<15) then
 Writeln(m*1000:0:2)
 else
  if m>n then
   Writeln(m:0:1);
if (n>m) and (n<15) then
 Writeln(n*1000:0:2)
 else
  if n>m then
   Writeln(n:0:1);
Readln;
end.