Если целое число М, введенное с клавиатуры, делится на целое число Н,
введенное с клавиатуры, с остатком равным 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.