Помогите написать программу на Pascal Срочно

Чтобы найти двухзначные числа, проверяешь 2 условия. Во первых делишь на 100 и проверяешь на целую часть и еще смотришь, чтобы это число было больше или равно 0.01. А с остальным проблем не должно быть

for j:=10 to 99 do begin
b1:=j*2 mod 10 =8;
b2:=j*3 mod 10 = 4;
b3:=(j div 10 + j mod 10) mod 5 <> 0;
if b1 and b2 and b3 then writeln(j);
end;

Наслаждайся....

И в чём интересно проблема?

var i,j:integer;
begin
for i:=1 to 9 fo for j:=0 to 9 do
if(2*(10*i+j)mod 10=8)and(3*(10*i+j)mod 10=4)and((i+j)mod 5<>0) then write(10*i+j:4); writeln; readln
end.

что при умножении на 2 число кончалось восьмеркой, нужно, чтобы оно само кончалось на 4 или 9, однако если умножить такие числа на 3, то на конце получится либо 2, либо 7, но не 4...так что таких чисел нет

вот увидишь... программа ничего не выведет

код прилагается хотя

for i:=10 to 99 do begin
b1:=i*2 mod 10 =8;
b2:=i*3 mod 10 = 4;
b3:=(i div 10 + i mod 10) mod 5 <> 0;
if b1 and b2 and b3 then writeln( i,' ') end;

2*x=8;
x=4; x=9;
3*x=4;
x =8;
Делай выводы.

Программу писать не буду но объяснить могу.

Тебе надо проциклить числа от 10 до 99 и выводить все числа
которые удовлетворяют условию
iF ((x * 2) mod 10 = 8) and ((x * 3) mod 10 = 4) and (((x div 10)+(x mod 10) )div 5 <> 0) then

x - число которое крутится в цикле и увеличивается на 1 с каждым проходом.
div - целочисленное деление
mod - остаток от целочисленного деления
and - логический оператор обьединения по русски "и".

Ну вот и все, а программу напиши сам.
Если учишь язык программирования, что то надо и самому делать, а иначе зачем зря время терять!