fork(1) download

copy

(* Решение задачи "Электронные часы-2". Автор - Сергей Кудинов, 8 класс *)
 
program ideone;
begin
var
  a, min2, sec, hour: longint;
 
var
  min1, sec1: string;
 
begin
  read(a);
  hour := a div 3600;
  min2 := (a - hour*3600) div 60;
  sec := a-(hour*3600)-min2*60;
  if min2 < 10 then min1 := '0';
  if sec < 10 then sec1 := '0';
  min1 := '0' + min2;
  sec1 := '0' + sec;
  writeln(hour mod 24, ':', min1[length(min1) - 1], min1[length(min1)], ':', sec1[length(sec1) - 1], sec1[length(sec1)]);	
end.

Free Pascal Compiler version 2.6.4+dfsg-4 [2014/10/14] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling prog.pas
prog.pas(5,1) Error: Illegal expression
prog.pas(6,3) Fatal: Syntax error, ";" expected but "identifier A" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty