Question

Составьте программу ,которая уменьшает первое число в пять раз ,если оно больше второго.

Answer 1

var a,b:real;
begin
writeln('Введите 2 числа');
read(a,b);
if a>b then 
   begin  
      writeln('Первое число больше второго');  
      write('a=',a/5:0:2); 
   end
else  writeln('Первое число не больше второго');
end.