Question

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

Answer 1

я не понял тебе нужен алгоритм для поскалей ? 

Answer 2

да

Answer 3

и срочно

Answer 4

Program Problem2; { Увеличения меньшего из двух целых чисел вдвое }
uses WinCrt;
var
a, b, c : integer;
begin
write("Введите первое целое число "); readln(a);
write("Введите второе целое число "); readln(b);
if a < b then c := 2*a
else c := 2*b;
writeln("Меньшее число ", c div 2);
writeln("Оно же увеличенное вдвое ", c)
end.