Задание 5.1 и 5.2 (32 балла даю)

program p51;
uses crt;
var n:integer;
begin
readln(n);
writeln(,n div 60,' Minut(-i) ',n mod 60,' Sekynd(-i)');
end.

program p52;
var a:integer;
begin
repeat
readln(a);
until (a>1000) and (a<10000);
writeln('Summa= ',a div 1000+a div 100 mod 10+a div 10 mod 10+a mod 10);
end.