Помогите перевести из паскаля в just basic

Question

Помогите перевести из паскаля в just basic

dasler37 Знаток (335), на голосовании 9 лет назад

Program 17;
var x,y,v,w:real;
Begin
writeln ('Введите x,y,v,w');
readln (x,y,v,w);
if (x=v) and (y=w)
or (x=y) and (v=w)
or (x=w) and (y=v)
then writeln ('можно')
else writeln ('нельзя');
End.

Answer 1

не знаю что за just nasic но могу на самый простой типа кубасика.

print "Введите x,y,v,w'"
input x,y,v,w
if (x=v) and (y=w)
or (x=y) and (v=w)
or (x=w) and (y=v)
then print "можно"
else print "нельзя"
endif