нужно написать программу на языке программирования Pascal для решения уравнения типа x/a = b, с выводом значения x в ответе

Var
  t, h, mm, ss: integer;
  ct, ch, cmm, css: string;

begin
  Write('Введите время в секундах от начала суток -> ');Readln(t);
  h := t div 3600;
  t := t mod 3600;
  mm := t div 60;
  ss := t mod 60;
  Str(h, ch);
  ct := ch + ':';
  Str(mm, cmm);
  if Length(cmm) = 1 then ct := ct + '0' + cmm + ':' else ct := ct + cmm + ':';
  Str(ss, css);
  if Length(css) = 1 then ct := ct + '0' + css else ct := ct + css;
  Writeln('Указано время ', ct)
end.

Тестовое решение:
Введите время в секундах от начала суток -> 27429
Указано время 7:37:09

#include <iostream>
using namespace std;
int main()
{
double a,b,c,max,min;
int kp,kn,kz;
cin>>a>>b>>c;
kp=kn=kz=0;
if (a>0) kp++;
else if (a==0) kz++; else kn++;
if (b>0) kp++;
else if (b==0) kz++; else kn++;
if (c>0) kp++;
else if (c==0) kz++; else kn++;
if (a>b)
   if (a>c) { max=a; min=(b>c) ? c : b; }
   else { max=c; min=b; }
else
   if (b>c) { max=b; min=(a>c) ? c : a; }
   else { max=c; min=a;}
double mid=(a+b+c)/3;
cout<<"polozhit: "<<kp<<", nulevykh: "<<kz<<", otritsat: "<<kn<<endl;
cout<<"min="<<min<<", max="<<max<<", Srednee="<<mid<<"\n";
system("pause");
}

Тестовое решение:
-1.76 2.18 -0.543
polozhit: 1, nulevykh: 0, otritsat: 2
min=-1.76, max=2.18, Srednee=-0.041
Для продолжения нажмите любую клавишу . . .