program...

program pr5;var s,a,b,m,n,c,d,:real;
begin
readln(a,b,c,d,m,n,4);
s:=4*a*b-c*b-m*n
writeln(s);
end. где здесь ошибка?это программа для нахождения площади стен для поклеивания обоев.помгите срочно плиз завтра сддававть

 

В строке 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;
begin
readln(a,b,c,d,m,n);
s:=4*a*b-c*b-m*n;
writeln(s);
end.