Сделайте от 1 до 9 на украинском​

Program time;
uses crt;
var
HH,MM,HP,MP,HR,MR,ost:integer;
begin
write('Vvedite vremya otvravki : ');
read(HH);
read(MM);
writeln;
write('vvedite prodolgitelnost poleta: ');
read(hp);
read(mp);
clrscr;
writeln('Otpravleniye somolyata v ',hh,':',mm);

MR:=mm+mp;
 if mr>59 then
 begin
 ost:=mr mod 60;
 MR:=ost;
 HR:=HR+(MR div 60);
 end;
 
HR:=HH+HP;
if hr>24 then hr:=hr - 24;

Writeln;
Write('Pributie samolyota v ', HR,':',MR);
writeln;

end.

данный можно сразу вводить через пробел...
например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка...не совсем правильно считает... подожди исправлю

1.
#include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,b,c;
setlocale(LC_ALL,"Russian");
cout <<"Введите катеты теугольника ";
cin>>a>>b;
c=sqrtl(a*a+b*b);
cout<<"Гепотенуза равна "<<c;
return 0;
}

2.
 #include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,s,v;
setlocale(LC_ALL,"Russian");
cout <<"Введите ребро куба ";
cin>>a;
s=6*a*a;
v=a*a*a;
cout<<"Площадь поверхности равна "<<s<<", объем куба равен "<<v<<".";
return 0;
}
3.
#include <iostream>
#include <stdio.h>
#include <math.h>
using namespace std;

int main()
{
long double a,b,time;
setlocale(LC_ALL,"Russian");
cout <<"Введите размер наследства и трату в месяц ";
cin>>a>>b;
time=a/(b*12)
cout<<"Наследства хватит на "<<time<<" лет";
return 0;
}