Составить алгоритм и программу вычисления выражения x=c2+a

Program zadacha;
var x,c,a:integer;
begin
writeln('Введите числа С и А');
readln(c,a);
x:=(c*2)+a;
writeln('Число Х= ',x);
end.

Алгоритм:
1. Получить значение С и А.
2. Значение С, необходимо умножить на два.
3. Прибавить к значению А результат получившийся во 2 шаге. 
4. Вывести результат. 
Программа:
program example;
var
C:integer; // переменная С
A:integer; // переменная А
X:integer; // переменная Х
begin
write("Введите переменную С: "); // выводим сообщение
readln(C); // получаем значение
write("Введите переменную A: "); // выводим сообщение
readln(A); // получаем значение
X:=C*2; 
X:=A+X;
write("X= ", X); // выводим сообщение
end.