fork download

copy

program Project2;
 
{$APPTYPE CONSOLE}
 
var
 
n,n1,n2,rn1,rn2,acrn2:integer;
 
begin
 
writeln(‘programa que resolve a multiplicaçao muito louca’);
 
writeln(‘digite um valor: ‘);
 
read(n1);
 
writeln(‘digite outro valor: ‘);
 
read(n2);
 
  if n1 mod 2 =1 then
 
  begin
 
  acrn2:=n2;
 
  end
 
    else
 
    if n1 mod 2=0 then
 
    begin
 
    acrn2:=0;
 
    end;
 
rn1:=0;
 
  while rn1<>1 do
 
  begin
 
  rn1:=n1 div 2;
 
  rn2:=n2*2;
 
    if rn1 mod 2 =1 then
 
    begin
 
    acrn2:=acrn2+rn2;
 
    end;
 
  n1:=rn1;
 
  n2:=rn2;
 
  end;
 
writeln(acrn2);
 
read(acrn2);
 
end.

prog.pas:3: warning: unknown compiler directive `apptype console'
prog.pas: In main program:
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: undeclared identifier `programa' (first use in this routine)
prog.pas:11: error:  (Each undeclared identifier is reported only once
prog.pas:11: error:  for each routine it appears in.)
prog.pas:11: error: undeclared identifier `resolve' (first use in this routine)
prog.pas:11: error: undeclared identifier `multiplica' (first use in this routine)
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: undeclared identifier `muito' (first use in this routine)
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: invalid character
prog.pas:11: error: syntax error before `)'

Standard output is empty