если целое число М, введенное с клавиатуры, делится на целое число Н,
введенное с клавиатуры, с остатком равным 2, то вывести на экран целую часть от деления М на Н, в противном случае - сообщение "при делении ...на ...остаток не равен 2"

Var m,h,a:integer;
begin       
Writeln('Vvedite chislo m');       
readln(m);       
writeln('Vvedite chislo h');       
readln(h);       
if m mod h = 2  then begin         
a:=m div h;         writeln('celaya chast =',a);       
 end       
 else writeln('pri delenii... "tut dopishi"');        
 readln;
end.