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

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