Введите с клавиатуры целое число. Выведите на экран следующие число, удвоенное значение числа, противоположное число, модуль числа, квадрат числа.

program zz1;

var a:integer; / /задаем переменную целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (a);

writeln (' удвоенное значение заданного целого числа = ', a * 2); / / выводим один ответ

writeln (' противоположное число заданному целому числу = ', a * (-1)); / / выводим другой ответ

writeln (' модуль заданного целого числа = ', abs (a)); / / выводим третий ответ

writeln (' квадрат заданного целого числа = ', a * a); / / выводим четвертый ответ

end.