exemplo 04 Algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

program Exemplo_04;
uses Crt;
var
a:integer;
b:real;
c:string;
d:boolean;
vet:array[1..4] of integer;
mat:array[1..4,1..3] of integer;
begin
readln(a);
if a = 1 then 
	write ('1-valor de a = 1');
if a = 1 then begin
	write ('2-valor de a = 1');
	write ('2-fim'); 
end; 
 
if a = 1 then
	write ('3-valor de a = 1'); 
	write ('3-fim') ;
end.