Сделать 14 вариант по ! (11 класс, язык-паскаль, программа delphi 7)​

Вот программа program suma;
var a,q,w,e,r,t,y,u:real;
begin
writeln('Введите температуру воздуха  понедельник');
readln(q);
writeln('Введите температуру воздуха  вторник');
readln(w);
writeln('Введите чесло температуру воздуха  среду');
readln(e);
writeln('Введите чесло температуру воздуха четверг');
readln(r);
writeln('Введите чесло температуру воздуха пятницу');
readln(t);
writeln('Введите чесло температуру воздуха субботу');
readln(y);
writeln('Введите чесло температуру воздуха воскресенье');
readln(u);
a:=((q+w+e+r+t+y+u)/(7));
writeln(a);
end.
Тут всё понятно

Заметил язык после написания программы, извиняюсь
Может пригодится :) 
если можно построить - "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;
}