Question

1.Составить текст программы
a:=upcase (PASCAL);
writeln(a)
помогите пожалуйста паскаль​

Answer 1

var

 a:string;

 i:integer;

begin

 a:='pascal';

 write('Исходная строка: ', a, #10);

 for i:= 1 to length(a) do

   a[i]:=upcase(a[i]);

 writeln('Модифицированная строка: ', a);

end.