Pascal. создайте программу для считывания типизированого файла и вывода информации на экран

Uses crt; var s: string; f: text; begin clrscr;     assign(f,'text.txt');     reset(f);     while not eof(f) do     begin     readln(f,s);     writeln(s);   s: ='';     end; end.

#include < iostream> using namespace std; int main() {       int n,k,i;       int array[100];       cin > > n;             for(i=0; i< n; i++)       {                       cin > > array[i];       }       cin > > k;       for(i=0; i< n; i++)       {                       if (k == array[i]){ break; }       }       if (k==array[i]) cout < < i+1;       else cout < < 0;       system("pause");       return 0; }

Program z1; var a,b: real;     f: longint; begin writeln('г‚гўгґг¤гёгігґ г¬г*г±г±гі гў гєгј: '); read(a); writeln('г‚гўгґг¤гёгігґ гґг¤гёг*гёг¶гі гўг»гўг®г¤г*: '); writeln('1 - г¬гёг«г«гёгјг°г*г¬г¬'); writeln('2 - гјг°г*г¬г¬'); writeln('3 - гєгёг«г®гјг°г*г¬г¬'); writeln('4 - г¶гґг*гіг*гґг°'); writeln('5 - гіг®г*г*г*'); read(f); if (f< 1) or (f> 6) then begin                         writeln('гџг®гўгіг®г°гёгігґ гўгўг®г¤');                         read(f);                         end; if f=1 then begin             b: =a*1000000;             write(a,' гєгј=',' ',b,' ','г¬гёг«г«гёгјг°г*г¬г¬');             end; if f=2 then begin             b: =a*1000;             write(a,' гєгј=',' ',b,' ','гјг°г*г¬г¬');             end; if f=3 then begin             b: =a;             write(a,' гєгј =',' ',b,' ','гєгёг«г®гјг°г*г¬г¬');             end; if f=4 then begin             b: =a/100;             write(a,' гєгј=',' ',b,' ','г¶гґг*гіг°г®гў');             end; if f=5 then begin             b: =a/1000;             write(a,' гєгј=',' ',b,' ','гіг®г*г*');             end; writeln('гџг°г®гјг°г*г¬г¬г* г§г*гўгґг°гёгґг*г*'); end.