Напишите эссе, состоящее из 100-150 СЛОВ, на тему
| «Казах стан – многонациональная страна».
При написании эссе используйте цитаты из различных источник
1. Для первой цитаты создайте сноску.
2. Для второй цитаты создайте ссылку.
3. Для третьей цитаты создайте гиперссылку.​

Program asd;
Var
  a,b,c:integer;
Begin
  Writeln('Введите стороны треугольника: ');
  Write('a=');
  Readln(a);
  Write('b=');
  Readln(b);
  Write('c=');
  Readln(c);
  if (c>a) and (c>b) and (c=sqrt(sqr(a)+sqr(b))) then Writeln('Прямоугольный') else
   if (a>c) and (a>b) and (a=sqrt(sqr(c)+sqr(b))) then Writeln('Прямоугольный') else
    if (b>a) and (b>c) and (b=sqrt(sqr(a)+sqr(c))) then Writeln('Прямоугольный') else      Writeln('Не прямоугольный');
End.
Блок-схема прикреплена ниже.
Тестовые значения:
Введите стороны треугольника:
 a=3
b=4
c=5
Прямоугольный

Program asd;
var  f,g:text; 
 t,fs,gs:string; 
 i,k,n:integer; 
IsFilesEqual:boolean;
begin 
IsFilesEqual:=true; 
assign(f,'fi1.txt'); 
 assign(g,'fi2.txt'); 
 reset(f); 
 reset(g);
  n:=0;
  while not eof(f) do   
begin   
  if not IsFilesEqual then     
   break;   
  readln(f,fs);   
   readln(g,gs);   
  if fs<>gs then   
    begin     
    IsFilesEqual:=false;     
     inc(n); 
         if length(fs)<Length(gs) then   
        t:=fs       
   else       
     t:=gs;   
       for i:=1 to length(t) do       
    if fs[i]<>gs[i] then         
     begin       
         k:=i;           
     break;       
       end;   
    end; 
  end; 
close(f); 
 close(g); 
 if IsFilesEqual then    writeln('Совпадают.') 
else 
   writeln('Строка = ',n,' Позиция = ',k); 
 readln;
end.