Нужно сделать программу выдающую итоги деления кратных трем чисел на три от 20 до 80. Исправте ошибку. Пишет встречено else а ожидался оператор.
Var a,b,c:integer;

Begin

a:=20;

b:=3;

While a<=80 do

begin

if a mod b=0

then

c:=a div b;

a:=a+1;

writeln(c);

else

a:=a+1;

end;

End.

Pascal ABC

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.

Это невозможно. N и M должны быть константными значениями. То есть в виде переменных их не сделать => ввести с клавиатуры значения для константных значений нельзя. Можно сделать элементы массива рандомными:

#include <ctime>
int main() {
cout<<"Введите число a: ";    
double a,b;    
cin>>a;    
cout<<"Введите число b: ";    
cin>>b;    
double **massiv=new double*[10];
for(int i=0;i<10;i++)        
massiv[i]=new double[10];
for(int i=0;i<10;i++)    
{        
for(int j=0;j<10;j++)        
{            
massiv[i][j]=(double(rand()) / RAND_MAX) * (b - a) + a;            
cout<<setw(6)<<setprecision(3)<<massiv[i][j];        
}        
cout<<endl;    
}
} 

Но не иначе.