Var
k,m,h:integer;
begin
readln(k);
writeln(k div 60, ' минут');
writeln(k div 3600, ' часов');
<span>end.</span>
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var r1:=abs(ReadReal('Наружный радиус кольца'));
var r2:=abs(ReadReal('Внутренний радиус кольца'));
if (r1*r2>0) and (r1>r2) then
Writeln('Площадь кольца ',pi*(sqr(r1)-sqr(r2)))
else Writeln('Неверные данные')
end.
<u><em>Тестовое решение:</em></u>
Наружный радиус кольца 25
Внутренний радиус кольца 21.8
Площадь кольца 470.484915801607
program Task;
var x: real;
begin
// Задание a
readln(x);
writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));
// Задание b
readln(x);
writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));
// Задание c
readln(x);
writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))
end.