Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Решаю программу в Паскаль, все время пишет либо Встречено ;, а ожидалось ), либо Встречено else, а ожидался оператор. Помогите, пожалуйста!!! Найдите ошибку!!!
Program Ves;
Var
a1,a2,a3,t1,t2,t3,p,d,vp: Integer;
begin
writeln (программа вычисляет норму для данного ученика);
writeln (введи массу учебника 1);
readln (a1);
writeln (введи массу учебника 2);
readln (a2);
writeln (введи массу учебника 3);
readln (a3);
writeln (введи массу тетради 1);
readln (t1);
writeln (введи массу тетради 2);
readln (t2);
writeln (введи массу тетради 3);
readln (t3);
writeln (введи массу пенала);
readln (p);
writeln (введи массу дневника);
readln (d);
writeln (введи массу портфеля);
readln (vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;
writeln (общая масса портфеля, b)
if (b<=5)
then writeln (норма);
else writeln (ненорма);
readln;
end.

Ответ оставил Гость

Program Ves;
Var a1,a2,a3,a4,t1,t2,t3,p,d,vp,b: Integer;
begin 
writeln (программа вычисляет норму для данного ученика);
writeln (введи массу учебника 1);readln (a1);
writeln (введи массу учебника 2);readln (a2);
writeln (введи массу учебника 3);readln (a3);
writeln (введи массу тетради 1);readln (t1);
writeln (введи массу тетради 2);readln (t2);
writeln (введи массу тетради 3);readln (t3);
writeln (введи массу пенала);readln (p);
writeln (введи массу дневника);readln (d);
writeln (введи массу портфеля);readln(vp);
b:=a1+a2+a3+a4+t1+t2+t3+p+d+vp;writeln (общая масса портфеля= b);
if (b<=5) then writeln (норма) else writeln (ненорма);
readln;
end.