Вмузыкальной школе учатся три друга: михаил, василий и петр. они умеют играть на баяне (б), гитаре (г), пианино (п), скрипке (с), флейте (ф), и трубе (т каждый из умеет играть на двух музыкальных инструментах. гитарист и скрипач - соседи по дому. михаил - самый младший из троих. все трое - петр, баянист и скрипач - ездят из школы вместе. баянист старше трубача. в свободное время, если им удается найти четвертого партнера, пианист, трубач и михаил обычно играют в "монополию". 1) на каких музыкальных инструментах играет михаил? 2) на каких музыкальных инструментах играет самый старший из друзей? 3) на каких музыкальных инструментах играет петр?

1) На скрипке и флейте.
2) На баяне и пианино.(Василий)
3) На гитаре и трубе.

ответ на Ваш вопрос зависит от того, что Вы разрабатываете - Windows-приложение или консольное. В любом случае основная часть программы может быть, например, такой:
var f: file of real; a,b,r:real;
begin
AssignFile(f,'myFile.dat');
Reset(f);
Read(f,a);
while not eof(f) do read(f,b);
r:=a-b;
//здесь нужно вывести r
Close(f);
end;
Программа будет работать, если:
1. используется типизированный файл, который был создан ранее;
2. файл находится в той же папке, что и программа
3. если разрабатывается Windows-приложение, то приведенный текст должен быть внутри обработчика какого-либо события
4. для вывода результата на форму (в случае Windows-приложения) следует использовать какой-либо компонент из палитры (например, Label)

#include <iostream>
#include <cstdio>
#include <cmath>
using namespace std; 
int main()
{   
 int a, b, c;    
cin>>a>>b>>c;   
 if ((a + b < c) || (a + c < b) || (b + c < a))    
{        
cout<<"Не треугольник";        
return 0;   
 }    
if ((a * a + b * b == c * c) || (a * a + c * c == b * b)||    (c * c + b * b == a * a))        
{           
 cout<<"Прямоугольный";            
return 0;        
}    
if ((a * a + b * b > c * c) || (a * a + c * c > b * b)||    (c * c + b * b > a * a))        cout<<"Остроугольный";   
 else        
cout<<"Тупоугольный"; }