Question

mam do wykonania pracę w free paskalu

mam do zaprojektowania oprogramowanie pt:pytania np ulubiony kolor

Kompletnie nic nie rozumiem proszę o pomoc pracę muszę później przepisać do worda

Answer 1

 

Var

kolor: string;

 

BEGIN

writeln('Jaki jest twoj ulubiony kolor?');

readln(kolor);

 

writeln('Twoim ulubionym kolorem jest ',kolor);

readln;

END.

Answer 2

Program pytania;

Var sKolor: string;

Procedure Pytanie;
Begin

 Write('Podaj swoj ulubiony kolor: ');
 Readln(sKolor);

End;

Procedure Wyswietlanie;
Begin

 Write('Twoj ulubiony kolor to: ');
 Write(sKolor);

End;


Begin

 Pytanie;
 Wyswietlanie;

 Readln;

End.