Написать программу нахождения наиболее наибольшего из трех чисел pascal

Program chisla; var a,b,c,max: real; begin readln(a,b,c); if (a> b) and (a> c) then max: =a; if (a< b) and (b> c) then max: =b if (a< c) and (b< c) then max: =c; writeln(max); end.

Program chik; var a,b,c,min: real; begin read(a,b,c); min: =a; if(b> min)then min: =b; if(c> min)then min: =c; writeln(min); end.

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var a: =readlnstring.towords; // читаем строку, образуем массив слов   var s: =(a[: 2]+a[3: ]).joinintostring; // получаем новую строку   writeln(s) // end. пояснения. a - массив с индексами от 0 до n-1, где n - число слов. срез a[: 2] возвращает последовательность элементов массива 0 и 1. срез a[3: ] возвращает последовательность элементов массива, начиная с третьего и до конца массива. объединение последовательностей порождает необходимый набор слов, который объединяется в строку через пробел при joinintostring. пример а роза упала на лапу азора а роза на лапу азора

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var f: =matrrandom(2,3,-99,99);   f.println(8); writeln(8*f.colcount*'-');   var s: =f.row(1).sum;   writeln('сумма по 2й строке равна ',s);   writeln('*** полученный массив ***');   f.setcol(2,f.col(2).select(t-> t*s).toarray);   f.println(8) end. пример *** исходный массив ***         -74        -10          38         -89          91        -18 сумма по 2й строке равна -16 *** полученный массив ***         -74        -10      -608         -89          91        288