Написать программу ,которая переменной s присваивают расстояние между точками с координатами x1,y1 и x2,y2

Программа на QBasic

CLS
INPUT "x1,y1,x2,y2=", x1, y1, x2, x2
S = SQR((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
PRINT "S="; S

Тестовое решение:
x1,y1,x2,y2=-5,3.8,6,0
S= 6.280128