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

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.