Написать для машины программу умножение на 2 числа

Пусть а - заданное целое число. Тогда программа умножения этого числа на 2 на языке программирования Pascal ABC может выглядеть так:

program zadacha1;

uses crt;

var a: integer;

begin

writeln ('vvedite chislo a:');

read (a); {Ввод значения числа а во время выполнения программы}

a:=a*2;

writeln ('a=', a) {Вывод результата на экран}

end.

Или же второй способ решения задачи:

program zadacha2;

uses crt;

var a: integer;

begin

writeln ('vvedite chislo a:');

read (a); {Ввод значения числа а во время выполнения программы}

writeln ('a=', a*2) {Вывод результата на экран}

end.