Задачи паскаль

[Лиия]

1.Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида «m=48 на n=9 нацело не делится».

2. Дано трехзначное число. Определить:
a. больше ли число суммы своих цифр;
b. четна ли сумма его цифр;
c. оканчивается ли число цифрой 5;
d. является ли число палиндромом.

3.Найти наибольшее из трех введенных с клавиатуры чисел.

5.Найти количество положительных чисел среди четырех чисел а, b, с, d, введенных с клавиатуры.
6. Дано три числа. Найти произведение только отрицательных из них.
7. Составить программу, которая определяет, вид треугольника, стороны которого равны а, b, с (если данные отрезки позволяют его построить).
8.Вывести на экран номер четверти, которой принадлежит точка с координатами (х, у), или же написать, что точка является началом координат или лежит на одной из осей х или у.

[Rififi]

Лиия, еще задачи есть? Скидывай сюда! Люблю читать их перед сном...

[Arigato]

Задачки все легкие, можете приступать к решению.

[TinMan]

Лиия, с чем конкретно трудности? Первую можешь сделать? Попробуй начать, если не получится - покажи тут, мы поможем.

[Mad_Cat]

Если целое число m делится нацело на целое число n, то вывести на экран частное от деления, в противном случае вывести сообщение вида «m=48 на n=9 нацело не делится».

var m,n:integer;
begin
readln(m);
readln(n);
if m mod n<>0 then writeln('m=',m,' на n=',n,' нацело не делится')
else writeln(m mod n);
end.

3.Найти наибольшее из трех введенных с клавиатуры чисел.

var a,b,c:real;
m:real;
begin
readln(a);readln(b); if a>b then m:=a else m:=b;
readln(c) if c>m then m:=c;
writeln(m);
end.