Pascal/Delphi Como se faz para esse programa em Pascal ter interface gráfica de usuários?

[Eduardo de Quadros]

program usoeletron;
var
	idade_anos, tempo_max_uso_eletron: byte;
	permite1_10, permite1_12, permite1_14, permite1_16, permite1_18: string[3];
	permite2_10, permite2_12, permite2_14, permite2_16, permite2_18: boolean;
begin
	write('Qual é a idade do seu filho em anos? ');
	readln(idade_anos);
	if (idade_anos < 2) then
	begin
		tempo_max_uso_eletron := 2;
	end
	else
	begin
		if (idade_anos < 4) then
		begin
			tempo_max_uso_eletron := 4;
		end
		else
		begin
			tempo_max_uso_eletron := idade_anos;
			if (tempo_max_uso_eletron mod 2 = 1) then
			begin
				tempo_max_uso_eletron := tempo_max_uso_eletron - 1;
			end;
			tempo_max_uso_eletron := tempo_max_uso_eletron * 2;
			if (tempo_max_uso_eletron > 60) then
			begin
				tempo_max_uso_eletron := 60;
			end;
		end;
	end;
	writeln;
	repeat
		write('Você permite que seu filho use mídias não recomendadas para menores de 10 anos [sim / não]? ');
		readln(permite1_10);
	until (permite1_10 = 'sim') or (permite1_10 = 'não');
	if(permite1_10 = 'sim') then
	begin
		permite2_10 := true;
		repeat
			write('Você permite que seu filho use mídias não recomendadas para menores de 12 anos [sim / não]? ');
			readln(permite1_12);
		until (permite1_12 = 'sim') or (permite1_12 = 'não');
		if(permite1_12 = 'sim') then
		begin
			permite2_12 := true;
			repeat
				write('Você permite que seu filho use mídias não recomendadas para menores de 14 anos [sim / não]? ');
				readln(permite1_14);
			until (permite1_14 = 'sim') or (permite1_14 = 'não');
			if(permite1_14 = 'sim') then
			begin
				permite2_14 := true;
				repeat
					write('Você permite que seu filho use mídias não recomendadas para menores de 16 anos [sim / não]? ');
					readln(permite1_16);
				until (permite1_16 = 'sim') or (permite1_16 = 'não');
				if(permite1_16 = 'sim') then
				begin
					permite2_16 := true;
					repeat
						write('Você permite que seu filho use mídias não recomendadas para menores de 18 anos [sim / não]? ');
						readln(permite1_18);
					until (permite1_18 = 'sim') or (permite1_18 = 'não');
					if(permite1_18 = 'sim') then
					begin
						permite2_18 := true;
					end;
				end;
			end;
		end;
	end;
	writeln;
	write('Então seu filho pode usar eletrônicos no máximo ', tempo_max_uso_eletron, ' horas semanais, podendo ouvir músicas infantis');
	if (tempo_max_uso_eletron >= 4) then
	begin
		write(', ouvir músicas livres não infantis infantis, ouvir músicas de jogos eletrônicos, assistir filmes e séries livres de personagens fictícios dublados');
	end;
	if (tempo_max_uso_eletron >= 8) then
	begin
		write(', assistir programas de televisão livres de entrevistas e entretenimento, assistir programas livres de telejornalismo, jogar jogos eletrônicos livres, assistir filmes, séries e telenovelas livres de personagens reais interpretados');
	end;
	if (permite2_10) then
		begin
		write(', usar mídias para 10');
		if (permite2_12) then
		begin
			write(', 12');
			if (permite2_14) then
			begin
				write(', 14');
				if (permite2_16) then
				begin
					write(', 16');
					if (permite2_18) then
					begin
						write(', 18');
					end;
				end;
			end;
		end;
		write(' anos');
	end;
	writeln(' e só!');
	readln;
end.

Citação

O Clube do Hardware não sugere a marcação de sintaxe Pascal.

Citação

O Pascalzim é uma IDE para o Windows 7, 8 ou 10.

 

[devair1010]

@EduardoMQS     para fazer uma interface gráfica usando a linguagem pascal você pode usar o DELPHI 7 ,  veja no youtube algumas aulas de como usar o delphi  e você conseguirá .  veja esse link :