Напишите функцию ToUpper(c), которая переводит символ в верхний регистр, то есть для строчной буквы латинского алфавита возвращает соответствующую заглавную букву латинского алфавита, а для остальных символов возвращает тот же символ.

Входные данные
Считайте один символ со стандартного ввода

Выходные данные
Переведите считанный символ в верхний регистр. В решении нельзя использовать циклы. В решении нельзя использовать константы с неочевидным значением.

самый большой авал это будет танцоры. поменьше актёры,а самый маленький авал певцы. 2 элемента

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2,   3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:

program n1;

uses crt;  

var n1,n2,n3,n4,n5,s: real;

begin

              read(n1,n2,n3,n4,n5);

              s: =(n1+n2+n3+n4+n5)/5;

              write('s=',s);

end.

в цикле sum [i]: =sum+mas[i,j];