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

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.

Answer 2

Program cnjdknc;
uses crt;
var a,b:real;
begin
readln(a,b);
if a>b then a:=a/5;
writeln(a);
readln;
end.