Если целое число М, введенное с клавиатуры, делится на целое число Н,

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