Как спрогромировать програму в паскале такую : Чтобы она из фунтов переводила в...

Question

Как спрогромировать програму в паскале такую : Чтобы она из фунтов переводила в килограммы!?

Answer 1

Program funt;Var m, f:real;beginwriteln('Введите количество фунтов');readln(f);m:=f*453;writeln('Ответ:',m);end.

Comments

Program funt;
Var m, f:real;
begin
writeln('Введите количество фунтов');
readln(f);
m:=f*453;
writeln('Ответ:',m);
end.