3 Вариант

Программа 1

program Cat_1;
var secs, mins: integer;
begin
write('Seconds: ');
readln(secs);
mins:= secs div 60;
writeln('Total ', mins, ' minutes passed.');
readln();
end.


Программа 2

program Cat_2;
var
num, n1, n2, n3: integer; ans: string;
begin
Write('Введите трехзначное число: ');
Readln(num);

if (num div 100 < num div 10 mod 10) and (num div 10 mod 10 < num mod 10)
then ans := 'Цифры образуют возрастающую числовую последовательность'
else ans := 'Цифры не образуют возрастающую числовую последовательность';

writeln('Ответ: ', ans);
end.


Программа 3

program Cat_3;
var V, U, T1, T2, S: real;

begin
write('Скорость лодки в стоячей воде [км/ч]: ');
readln(V);
write('Скорость течения реки [км/ч]: ');
readln(U);
write('Время движения лодки по озеру (в стоячей воде) [ч]: ');
readln(T1);
write('Время движения лодки по реке (против течения) [ч]: ');
readln(T2);
S := (V * T1) + (V - U) * T2;
writeln;
writeln('Пройденный путь составляет ', S:0:3, ' км');
readln;
end.


Программа 4

program Cat_4;
var
ch: char;
begin
Write('Enter the character: ');
Readln(ch);
if (ord(ch)>64) and (ord(ch)<91) then writeln('Lowercase variant: ', chr(ord(ch)+32));
if (ord(ch)>96) and (ord(ch)<123) then writeln('Uppercase variant: ', chr(ord(ch)-32));
end.