rostr4.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var s:string;
    i,n:integer;
begin
write('s=');readln(s);
for i := 1 to length(s) do
  if ( i mod 2 <>0 ) then s[i]:=upcase(s[i]);
  writeln(s);
  end.