Два номера с пояснением и ответом

{Даны вещественные числа a,b,c. Определите, существует ли треугольник со сторонами a,b,c?}
var a,b,c:real;
begin
  writeln('введите стороны треугольника');
  readln(a, b, c);
  if (a+b>c) and (a+C>b) and (b+c>a) then  writeln('треугольник существует')
  else   writeln('треугольник не существует');
end.

{ Дано целое положительное число. Определите, оканчивается ли оно цифрой 7}
var
  N:integer;
begin
  writeln('введите число');
  readln(N);
  if n mod 10= 7 then
    writeln('оканчивается  цифрой 7')
   else    writeln( 'не оканчивается цифрой 7');
end.

#include <iostream>
using namespace std;
int main()
{
setlocale(0,""); // это что бы на русском было
cout<<" Сижу за решеткой в темнице сырой."<<endl;
cout<<"Вскормленный в неволе орел молодой,"<<endl;
cout<<"Мой грустный товарищ, махая крылом,"<<endl;
cout<<"Кровавую пищу клюет под окном,"<<endl;
cout<<"Клюет, и бросает, и смотрит в окно,"<<endl;
cout<<"Как будто со мною задумал одно;"<<endl;
cout<<"Зовет меня взглядом и криком своим"<<endl;
cout<<"И вымолвить хочет: «Давай улетим!"<<endl;
cout<<"Мы вольные птицы; пора, брат, пора!"<<endl;
cout<<"Туда, где за тучей белеет гора,"<<endl;
cout<<"Туда, где синеют морские края,"<<endl;
cout<<"Туда, где гуляем лишь ветер... да я!..»"<<endl;
return 0;
}