fork download

copy

program consonants;
 
function consonant_counter(s:string):string;
const letters = ['A'..'Z'];
const vowels = ['A','E','I','O','U'];
var counter:array['A'..'Z'] of integer;
	i, len:integer;
	c:char;
begin
	s:=UpCase(s);
	len:=Length(s);
	for c:='A' to 'Z' do begin
		counter[c]:=0;
	end;
 
	for i:=1 to len do begin
		if (s[i] in letters) and not (s[i] in vowels) then begin
			inc(counter[s[i]]);
		end;
	end;
 
	consonant_counter:='';
	for c:='A' to 'Z' do begin
		if counter[c] = 1 then begin
			consonant_counter := consonant_counter + c;
		end;
	end;
end;
 
var s;
 
begin
	readln(s);
	writeln(consonant_counter(s));
end.

Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(30,6) Fatal: Syntax error, ":" expected but ";" found
Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode

Standard output is empty