ПАСКАЛЬ, 4. Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя:
4.1. только простые вложенные условия (без and/or)
4.2. логические выражения (с and/or)
5. Дано четыре целых числа. Максимальное из них присвоить
дополнительной переменной и вывести результат, используя:
5.1. логические выражения (с and/or)
5.2. простые условия (без and/or) и короткое ветвление (без ELSE)
6. Дано три числа. Вывести их в порядке возрастания без
использования цикла.

Var a,b,c:integer;
begin
writeln('Введите возраст Светланы: ');
readln(a);
writeln('Введите возраст Карины: ');
readln(b);
writeln('Введите возраст Марины: ');
readln(c);
if ((a>b) and (a>c)) then writeln('Светлана: ', a)
else if ((b>c) and (b>a)) then writeln('Карина: ', b)
else if ((c>a) and (c>b)) then writeln('Марина: ', c);
if ((a>c) and (c>b)) then writeln('Марина: ', c)
else if((c>b) and (b>a)) then writeln('Карина: ', b)
else if ((b>a) and (a>c)) then writeln('Светлана: ', a);
if ((a<b) and (a<c)) then writeln('Светлана: ', a)
else if ((b<a) and (b<c)) then writeln('Карина: ', b)
else if ((c<a) and (c<b)) then writeln('Марина: ', c);
end.

#13
Вот крч только это убого насамом деле,просто я забыо как через цикл делать но если ты вспомнишь,то красавчик,и да там определяет только большие А и только английские )
program q;
var
a:string;
t,b:integer;
begin

readln(a);

b:=0;

if a[1]= 'A' then t:=b+1
else t:=0;
if a[2]= 'A' then t:=t+1
else t:=t;
if a[3]= 'A' then t:=t+1
else t:=t;
if a[4]= 'A' then t:=t+1
else t:=t;
if a[5]= 'A' then t:=t+1
else t:=t;
if a[6]= 'A' then t:=t+1
else t:=t;
if a[7]= 'A' then t:=t+1
else t:=t;
if a[8]= 'A' then t:=t+1
else t:=t;
if a[9]= 'A' then t:=t+1
else t:=t;
if a[10]= 'A' then t:=t+1
else t:=t;
if a[11]= 'A' then t:=t+1
else t:=t;
if a[12]= 'A' then t:=t+1
else t:=t;
write(t);
end.