Question

Napisz progran w Free Pascal, którego wynikiem jest następujący dialog:

K: Podaj imię

U: Ala

K: Witaj Ala

K: Podaj dzień urodzenia

U: 21

K: Podaj mieśąc

U: Luty

K: Podaj rok

U:1983

K: Ala, twoja data urodzenia to 21 luty 1983 rok

Answer 1

program zadanie;
uses crt;
var
imie, dzien, miesiac, rok:string;
begin
clrscr;
Writeln('Podaj imie');
readln(imie);
Writeln;
Writeln('Witaj ',imie);
Writeln('Podaj dzien urodzenia');
readln(dzien);
Writeln;
Writeln('Podaj miesiac');
readln(miesiac);
Writeln;
Writeln('Podaj rok');
readln(rok);
Writeln;
Writeln(imie,' Twoja data urodzenia to ',dzien,' ',miesiac,' ',rok);
readln;
end.

Answer 2

Program zadanie;
uses crt;
var
im,dz,mi,ro:string;
begin
clrscr;
Writeln('K: ','Podaj imie ');
Write('U: ');
readln(im);
Writeln('K: ','Witaj ',im,'.');
Writeln('K: ','Podaj dzien urodzenia ');
Write('U: ');
readln(dz);
Writeln('K: ','Podaj miesiac ');
Write('U: ');
readln(mi);
Writeln('K: ','Podaj rok ');
Write('U: ');
readln(ro);
Writeln('K: ',im,', twoja data urodzenia to ',dz,' ',mi,' ',ro,' rok.');
readkey;
end.