Вывести на экран удвоенное значение числа, если число положительное - Free Pascal

Формулировка задачи:

Нарисуйте блок-схему алгоритма й напишите программу, которая анализирует введенное с клавиатуры число и выдает на экран: + удвоенное значение числа, если число положительное; + абсолютное значение числа, если число отрицательное. Решение

program analiz;
uses crt;
var a,b,c,x:integer;
rez:real;
begin
Writeln('Введите 3-и буквы');
readln(a,b,c);
rez:=sqr(a/b)+c;
if x>0 then
writeln('удвоенное значения числа:')
else
writeln('абсолютное значение числа:');
readln
end.

Какие значения надо поставить чтобы выводилось при ответе удвоенное значения числа, а то при минусе и при плюсе значений выводится абсолютное значение числа

Решение задачи: «Вывести на экран удвоенное значение числа, если число положительное»

Листинг программы

var x:integer;
begin
  writeln('Введите число');
  readln(x);
  if x<0 then writeln('абсолютное значение числа = ',abs(x))
  else writeln('удвоенное значения числа = ',2*x);
  readln
end.

Объяснение кода листинга программы

Объявление переменной x типа integer.
Вывод на экран сообщения Введите число.
Чтение значения переменной x с помощью функции readln.
Проверка условия if x<0, если оно истинно, то выполняется блок кода, который выводит на экран сообщение абсолютное значение числа = и значение абсолютной величины числа с помощью функции abs.
Если условие if x<0 не выполняется, то выводится на экран сообщение удвоенное значения числа = и значение переменной x, умноженное на 2.
Завершение работы программы с помощью функции readln.