program pr5; var s,a,b,m,n,c,d,: real; beginreadln

В строке var s,a,b,m,n,c,d,: real; после переменной d запятая не нужна. Еще в строке readln (a,b,c,d,m,n,4); не нужно после n ставить 4 (зачем?) После строки s: =4*a*b-c*b-m*n пропущена точка с запятой. Правильный вариант программы: program pr5; var a,b,c,d,m,n,s: real; beginreadln (a,b,c,d,m,n); s: =4*a*b-c*b-m*n; writeln (s); end.