Дано число его удвоить и утроить составить программу в паскаль

Question

Дано число его удвоить и утроить составить программу в паскаль

Comments

две проги писать? на удвоение и на утроение?

---

одну

---

вводится одно число?\

---

или два?

---

одно

Answer 1

Program удвоение;
var a:real;
Begin
read(a);
a:=a*2;
writeln(a);
End.

Program утроение;
var a:integer;
Begin
read(a)
a:=a*3;
writeln(a);
End.

Comments

это надо одну программу