Cоставить программу вычисления R =2,7 b^2-a1/5(a2),при b= 8,4,6,2,0

а через qbasic можно?

помогите плииз,как это решить через qbasik

var a,r,b:real;beginb:=8;writeln ('Введи a');readln (b);r:=2.7*b*b-a*1/5*(a*2);writeln ('r = ',r);end.