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

var a,b:real;beginreadln(a,b);if(sqrt(b)<a) then b:=b*5else b:=0;writeln(b, ' - второе число');end.