Написать для машины программу умножение на 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.