Помогите плз решить задачи в qbasic
1.Даны два действительных числа A и B. Вывести первое число, если оно больше второго, и оба числа, если это не так.
2.Даны два действительных числа A и B . Заменить первое число нулём, если оно меньше или равно второму, и оставить числа без изменения в противном случае.

1)CLSDIM A AS REALDIM B AS REALINPUT AINPUT BIF A>B THEN  PRINT AELSE  PRINT A  PRINT BEND IF2)CLSDIM A AS REALDIM B AS REALIF A<=B THEN  A=OEND IFPRINT APRINT B