Ребята здраствуйте, нам сказали ​

Кумир я не знаю, а что эту экзотика ещё преподают?

Он нигде, кроме школ, никогда не использовался.

Напишу только алгоритм.

1) Начало

2) Ввод исходного числа n.

3) n = n*n // возводим n в квадрат

4) n = 10*n // умножаем на 10. Теперь десятые доли стали единицами

5) n = [n] // оставляет целую часть, дробную отбрасываем

6) n = n - [n/10]*10 // вычисляем остаток от деления на 10, то есть цифру единиц.

7) Вывод n

8) Конец.

Объяснение. Допустим, мы ввели n = 1,4.

В 3 пункте мы умножили его само на себя, то есть возвели в квадрат. Стало n = 1,96.

Нам нужно получить цифру 9.

В 4 пункте мы умножили число на 10, получили n = 19,6.

В 5 пункте отбросили дробную часть, стало n = 19.

В 6 пункте самая трудная операция:

n = n - [n/10]*10 = 19 - [1,9]*10 = 19 - 1*10 = 9

Таким образом, мы получаем последнюю цифру любого целого числа, то есть остаток от деления на 10.

Вообще-то вместо этой сложной формулы во многих языках есть готовая функция Mod, дающая сразу остаток от деления. Пишется так:

n = n Mod 10

Из числа 19 сразу получаем 9.

Если такая функция есть в Кумире, используйте её. Если нет, тогда мою формулу.

1. a; c
2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/
3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы.
Исправление:
program prim_a;
var m, n, k: integer;

begin
writeln('введите значения переменных m, n и k');
read(m,n, k);
writeln((m+n+k)*5);
end.
4. a) 
program plowad;
var
a, h: real;

begin
writeln('Введите основание треугольника и высоту');
readln(a, h);
writeln('Площадь треугольника равна ', a*h/2);
end.
5. program proizvedenie;
var 
a, b: integer;

begin
writeln('Введите двузначное число');
readln(a);
b:=a mod 10;
a:=a div 10;
writeln('Произведение цифр двузначного числа равно ', a*b);
end.