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