помогите составить программу на языке Turbo pascal

Вот допустим у тебя есть две переменные a и b. Тебе нужно узнать: если остаток от деления a на b =0, тогда вывести "Остаток=0", а иначе-вывести "Остаток=" и вывести остаток.
Ветвление позволит тебе проверить истинность двух или больше операндов. У ветвления есть только два выхода: истина и ложь. Если условие истинно, то ...А если ложно, то... На каждый выход можно после "то... " написать всё что захочешь. Проверять условие можно на равенство (=), неравенство (<>), больше либо равно (>=), меньше либо равно (<=), больше (>), меньше (>) и так далее!
В твоей задаче мы будем проверять условие на равенство. А вот так выглядит ветвление в Паскале:
If (a mod 2)=0 then//Условие
//Что угодно... +не забудь убрать точку с запятой в конце перед else
else
//Что угодно...
Также ветвление может быть без ложной части
If (a mod b)=0 then//Условие
//Что угодно...
А теперь давай решим твою задачу:
__________________________________________
var a, b:integer;//a и b
begin
Readln(a, b);//Вводим a и b
If (a mod b)=0 then//Если остаток от деления a на b равен нулю то...
Writeln('Число a=', a, ' делится на b=', b, ' без остатка! ')
else//Иначе
Writeln('Число a=', a, ' не делится на b=', b, ' без остатка! ');
Readln;//Чтобы программа не пропускала ответ!
end.
_________________________________________________
Вот так!

Пример:
if ...then ...else...
В переводе:
если что-то выполняется (например, сравнение a>b), то делать одно, иначе делать другое.

Программа:
progtram br1;
var a,b:integer;
begin
write('a b: '); readln(a,b); writeln(a mod b=0); readln
end.
Эта программа будет печатать true или false.

Хотя от вас ждут, видимо, программу с необязательным тут условным оператором.
progtram br2;
var a,b:integer;
begin
write('a b: '); readln(a,b); if a mod b=0 then writeln('Yes') else writeln('No'); readln
end.

А вообще читай книжки :) "Чтение - вот лучшее учение" (Пушкин)

Это конструкция "Если <условие> то делать <код> иначе делать <код> " - одноразовая проверка
var a,b:integer;
begin
readln(a,b);
if (a mod b=0) then
begin
writeln('Yes')
end
else
writeln('No');
end.