для Basic:
REM
CLS
Input "a=",a
Input "b=",b
Input "с=",с
Input "d=",d
If a/c=b/d THEN PRINT "подобные" ELSE PRINT "нет"
