Hogyan tudom? (Pascal)

program tartalom;

uses crt;

var 1,2,3,4:word;

ch:char;

begin

clrscr;

1:='Anyag1';

2:='Anyag2';

Writeln('Adjon meg egy karaktert!');

readkey(ch);

case ch of

'1':writeln(1);

'2':writeln(2);

end;

end;

A readkey egy leütött karaktert olvas be, a Case of pedig elágazás. Remélem érthető és sikerül.

Szerencsétlenek, a word típusba hogyan akartok stringet rakni??

var 1,2,3 : string;

var a : byte;

begin

1:='Anyag1' ; 2:='Anyag2' stb...

readln(a);

Case a of

1: writeln(1);

2: writeln(2);

stb..

end;

end.