Паскаль. Распечатать таблицу значений y(x) = 6 * x – 4 на промежутке [0; 9] c шагом 0,5

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.

program d1; varx1,x2,y1,y2,d: real; beginread(x1); read(x2); read(y1); read(y2); //d: =sqrt(sqr(x2-x1)+sqr(y2-y1)); write('ðàñòîÿíèå ìåæäó òî÷êàìè: ',d); end.

var a,b,s: real;

begin

writeln("введите высоту куба");

readln(a);  

writeln("введие длину стороны куба");

readln(b);

s: =a*b;

writeln("площадь равна",s);

readln;  

end. 

var s: string; start,finish,i: integer; begin  {read(s); }  s: ='i aha, go home i';   start: =1;   for i : = 2 to length(s)+1 do begin      if (s[i] in [' ',',','.']) or (i=length(s)) then begin          finish: =i-1;           if s[start]=s[finish] then writeln(copy(s,start, finish-start+1));           start: =i+1;       end;   end; end.