29 uzdevumi
{ Programmeeshana I
1.1. Informaacijas ievade un izvade.
Pirkuma summas apreekinaasana.
Dzintars Students SkIn040030}
program pirkums;
var
Cena:real;
Svars:real;
Sum:real;
begin
writeln('Pirkuma summas apreekinaasana.');
writeln('Ievadiet produkta cenu: ');
readln(Cena);
write('Ievadiet, cik kilogramus veelaties iegaadaaties: ');
readln(Svars);
Sum:= Cena * Svars;
writeln('Juusu pirkums maksaa ',Sum:5:2,' Ls.');
writeln('Paldies par pirkumu!');
readln;
end.
…
