Написать программу для этой фигуры, в кумире по миру черепаха

паскаль

 

program m1; uses crt; var a,b,c,d: integer; beginwrite('введите число: '); readln(a); {задаем число}b: =a mod 10; {в переменную b заносится значение последней цифры в числе}a: =a div 10; {сокращаем переменную до 2 чисел}c: =a mod 10; {в переменную c заносится значение последней(второй) цифры в числе}a: =a div 10; {сокращаем переменную до 2 чисел}d: =a mod 10; {в переменную d заносится значение первой цифры в числе}if (d*b = d + c) then writeln('произведение 1 и 3 цифры и сумма 2 и 1 цифр равны! ')else writeln('произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны! '); end.

Посмотри, что получается.  если выполнить команды для чисел 30 и 25впиши пропущенные команды и вычисли результат еще два раза: для чисел 50 и 7,  вычисли результат  1.начало  2. запиши число  3. если число четное то 4. раздели его на 2  5. если полученное число больше 20  то 6. вычти 5иначе  7. прибавь  58. прибавь 1 9. конецчто получается? таблица 30    25    50    715  25    25    -20  20  20  1221  21  21  13