Блок схема представлена на изображении
Var a: integer;
begin
write('Введите трехзначное число: ');
readln(a);
writeln('Результат: ',(a mod 100)*10+(a div 100));
end.
var a,b,c:integer;
begin
writeln('Введите a,b,c');
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if a+b>b+c then
begin
if a+b>a+c then
write('a+b=',a+b)
else
write('c+a=',c+a);
end
else if b+c>=a+b then
begin
if b+c>c+a then
write('b+c=',b+c)
else
write('c+a=',c+a);
end
else
write('c+b=',c+b);
end.
Смотря что Вы называете циклом. По установившейся терминологии любой цикл состоит из заголовка цикла (по строению которого циклы часто и именуют) и тела цикла. В языке паскаль в заголовке цикла с предусловием стоит ключевое слово while и ключевое слово цикла с параметром for стоять уже не может. Но в теле цикла, которое может иметь любое содержимое, цикл for, конечно же, может встречаться.
А вот язык Алгол, на базе которого Н.Вирт сконструировал свой Паскаль, мог в заголовке цикла содержать очень много всего и, в том числе, смесь while с for:
for x:=p0 step h1 until q-1, q+1 step h2 until t, t+0.17 step h3 while cos(x/2)<0.85 do ...
Но Н.Вирт решил, что такой цикл неэффективен и... оставил от него жалкие ошметки. Возможно, компилятору "стало проще жить", но зато программисты в Паскале лишились возможности не только писать в цикле вещественные значения, но и вынуждены менять целочисленные только на 1 или -1.
10 rem
20 input d
30 let k=4.3*sin(exp(<span>1/d)+2)/(d+2,1)-6,7*d
40 print "k=";k
50 end
</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('N=');
SeqGen(N, 11, t -> t + 11).Aggregate(BigInteger(1), (i, j)-> i * j).Println
end.
<h3>N= 21</h3><h3>378085741958289664546285217171284131840000</h3>