ПАСКАЛЬ!!!
Задачи базового уровня
Б1. Дано число. Вывести на экран его последнюю цифру.
Б2. Для заданного двузначного числа определить чего в нем больше единиц или десятков?
Б3. Для заданного трехзначного числа определить кратна ли сумма его цифр 5?
Б4. Известен рост трех человек. Определить, одинаков ли их рост.

var num: integer;beginread(num);write(num mod 10);end.var sum, num: integer;beginsum := 0;read(num);sum := num mod 10;num := num div 10;sum += num mod 10;num := num div 10;sum += num;if sum mod 5 = 0 then write('yes') else write('no');end.var num, n: integer;is_od: boolean;beginis_od := true;read(num);n := num;read(num);if num <> n then is_od := false;read(num);if num <> n then is_od := false;if is_od = true then write('yes') else write('no');end.