Даны два действительных числа. если первое число меньше или равно второму, то первое число заменяется нолем

в Паскаль ABC
помогите пожалуйста.

2

Ответы и объяснения

2013-11-28T18:11:35+00:00
Var 
a, b: real;
begin 
readln(a, b); 
if (a <= b) then   
 a := 0;
end.
2013-11-28T18:14:10+00:00
Var  сh1, ch2: real;
begin 
readln(ch1, ch2); 
if (ch1 <= ch2) then   
ch1 := 0;
end.