, информатика молелирование (на фото)

Алгоритм
1) a x a = a² ⇒ b;    b x a = a³ ⇒ результат
2) a x a = a² ⇒ b;    b x b = a⁴ ⇒ c;   c x c = a⁸ ⇒ c;   c x b = a¹⁰ ⇒ результат

Программа на языке PascalABC.Net
var
  a,b,c,y:real;
begin
  Write('Введите число: '); Read(a);
  b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y);
  c:=b*b; c:=c*c; y:=b*c;
  Writeln('Десятая степень числа равна ',y)
end.

Тестовые решения:
Введите число: 2
Третья степень числа равна 8
Десятая степень числа равна 1024

Введите число: -13.594
Третья степень числа равна -2512.128188584
Десятая степень числа равна 215512594781.574

Заметил язык после написания программы, извиняюсь
Может пригодится :) 
если можно построить - "yep", иначе  - "no"
#include <iostream>
#include <conio.h>
using namespace std;
void triangleOptimal(int m, int n, int k) 
{
   if(k<0 || m<0 || n<0) 
   {
      cout << "no";
   } 
   else 
   {
      if(k*k == m*m + n*n) 
      {
         cout << "yep";
      } 
      else
      {
         cout << "no";
      }
   }
}
int main()
{
   int a,b,c;
   cin >> a;
   cin >> b;
   cin >> c;
   triangleOptimal(a,b,c);
   _getch();  
    return 0;
}