Найти наименьшее из двух целых чисел. выводишь его на экран . затем это наименьшее число умножаешь на 100 и опять выводишь на экран.

If a < b then
begin
writeln (a);
writeln (100*a);
end;
else
begin
writeln (b);
writeln (100*b);
end;