program Zad1;

uses
crt;


var a, x, y : Real;
i : integer;


begin
writeLn('Podaj wartosc ''a''' );
//a:=0;

repeat
write ('a=');
readln (a);

if (a = 0) then
writeln ('''a'' powinno byc rozne od ''0''');
until (a <> 0);

writeln(' X Y');

for i:= 1 to 10 do
begin
x:= 0.3* i;

if (x < 1 ) then
begin
y:= 3 / a + sin(x);
end
else
y:= 3 * sqr(x) + 2 * a;

writeln(' ', x:5:3, ' ', y:5:3);


end;

readln();
end.







program zad2;

uses
crt;

var
odp : string;
i, sum, l : integer;
x: real;


begin
clrscr;
sum:= 0;
x:= 0;

writeln('Czy zaczynasz oblicznenia?');
readln(odp);

if ((odp = 'tak') or (odp = 'Tak')) then
begin
writeln('Podaj osiem liczb calkowitych');

for i:= 1 to 8 do
begin
write('liczba ', i, '''a:');
readln(l);
sum:= sum + l;
end;

x:= sum/8;
writeln('Srednia to:', x:5:2);
end
else if ((odp = 'nie') or (odp = 'Nie')) then
begin
writeln('Nie to nie :P');

end
else
writeln('Blad!');

readln();
end.