Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
1) при помощи смайликов
2)... Касперского
3).... мыши
Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
4E516
0100/1110/0101/0001/0110
001/001/110/010/100/010/110
1162426
Тетрада и триада