Program programma;
var a,b,c: integer;
begin
writeln ('Введите два числа');
read (a,b);
if a>b then writeln ('Были введены числа ',a,' и ',b,'. Наименьшее число ',b,'. Удвоенное наименьшее число ',2*b);
if b>a then writeln ('Были введены числа ',a,' и ',b,'. Наименьшее число ',a,'. Удвоенное наименьшее число ',2*a);
end.
Нет, без дополнительных программ нельзя.
На бумагу
на лист
на что то плоское и легкое
Быквы и цыфры
Знаки операций
Символы
Ограничители и разделители
Специальные символы