Hjælp! til et stykke kode!!!! .....

Jeg er ved at lave en slags chatbot og kan ik få det med alder funktionen til og virke ved ik hvad der er galdt!!! help me!!




uses
SysUtils;

var
navn: String;

begin

Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ');
Readln;
begin
var
Alder: integer;

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! ');
Readln;
end.

Kode 

uses
  SysUtils;

var
  navn: String;
  Alder: integer;

begin
  Write('Hejsa, hvad hedder du? ');
  Readln(navn);
  Writeln('Ok, du hedder altså ', navn, ' ');
  Readln;

  Write('Hejsa, hvor gammel er du? ');
  Readln(Alder);
  if alder <= 10 then
    Writeln('Er du ikke lidt ung af en programmør at være?')
  else
    Writeln('Ok, du er altså ', IntToStr(alder), ' år gammel! :)');
  Readln;
end.

Jeg er ved at lave en slags chatbot og kan ik få det med alder funktionen til og virke ved ik hvad der er galdt!!! help me!!


uses
SysUtils;

var
navn: String;

begin

Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ');
Readln;
begin
var
Alder: integer;

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! ');
Readln;
end.

Jeg er ved at lave en slags chatbot og kan ik få det med alder funktionen til og virke ved ik hvad der er galdt!!! help me!!


uses
SysUtils;

var
navn: String;

begin

Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ');
Readln;
begin
var
Alder: integer;

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! ');
Readln;
end.


Du skal definere alder hvor du også derfinerer navn. DVS:

uses
SysUtils;

var
navn,alder: String;

begin

Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ');

Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if Alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', Alder, ' år gammel! ');
end;
end.

T dér

Jeg er ved at lave en slags chatbot og kan ik få det med alder funktionen til og virke ved ik hvad der er galdt!!! help me!!




uses
SysUtils;

var
navn: String;

begin

Write('Hejsa, hvad hedder du? ');
Readln(navn);
Writeln('Ok, du hedder altså ', navn, ' ');
Readln;
begin
var
Alder: integer;

begin
Write('Hejsa, hvor gammel er du? ');
Readln(Alder);
if alder <= 10 then
Writeln('Er du ikke lidt ung af en programmør at være?')
else
Writeln('Ok, du er altså ', alder, ' år gammel! ');
Readln;
end.



Hej,

Prøv med:

Kode 

uses
  SysUtils;

var
  navn: String;
  Alder: integer;

begin
  Write('Hejsa, hvad hedder du? ');
  Readln(navn);
  Writeln('Ok, du hedder altså ', navn, ' ');
  Readln;

  Write('Hejsa, hvor gammel er du? ');
  Readln(Alder);
  if alder <= 10 then
    Writeln('Er du ikke lidt ung af en programmør at være?')
  else
    Writeln('Ok, du er altså ', IntToStr(alder), ' år gammel! :)');
  Readln;
end.

/Michael.